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Prefacio 


Tienes un Sinclair ZX Spectrum y te sientes con bastante confianza sobre cómo 
usarlo. Sabes lo que las teclas hacen, y puedes ensartar veinte o treinta líneas 

de BASIC y hacer que funcione. Has repasado concienzudamente el Manual 

y un libro de introducción. Has tecleado docenas de programas sacados de 

las revistas y descubierto que los programas breves hacen todos lo mismo, 

y que los largos, si no están llenos de errores, te llevan horas y horas de trabajo 
cuidadoso -y meramente por ochocientas pesetas puedes comprar un cassette 

que produce resultados más impresionantes. Todo eso estaría bien excepto 

que no quieres continuar gastando ochocientas pesetas para comprar los programas 
de otra gente- lo que quieres es producir tus propios programas. 


Así que, ¿ahora qué? 


Todavía te queda bastante camino que recorrer antes de que puedas escribir juegos 
en Código Máquina con calidad competitiva con los de paredes de ladrillos, 

o programas que muestren el firmamento, tal y como estaba en cualquier época 
entre el año 4000 a.d.C. o estará en el 6000 d.d.C.; y mientras que este libro 
puede iniciarte a lo largo de ese camino, no te llevará ciertamente durante 


todo él. 


Lo que si hará es ayudarte a ampliar ambas capacidades, la tuya y la de tu 
máquina. 


Hay tres direcciones principales para explorar. 


Una pudiera describirse como "Teoría de Computación": cómo desarrollar técnicas 
para mejorar tus programas. Por lo que respecta a este libro. hemos adoptado 
una visión bastante práctica de lo que constituye la teoría: es decir, nos hemos 
concentrado sobre rasgos específicos del Spectrum, tales como sus posibilidades 
de color y sus gráficos, y hemos indagado un poquito más sobre la máquina. 
Encontrarás mas cosas sobre caracteres de control, funciones definidas por 

el usuario, gráficos definidos por el usuario, variables del sistema, y los ficheros 
de atributos y grafismos, y sobre cómo sacar mayor provecho de ellos. 


La segunda dirección es "Mejora de la Máquina". Escribiendo adecuados utensilios 
de programación y explotación, puedes equipar a tu Spectrum con facilidades 
que la máquina desnuda no posee. La rápida renumeración de líneas en los 
programas en BASIC (nuestra rutina te permite entresacar un bloque de un 
programa y renumerar ese bloque por si mismo -lo que es bastante bueno para 
perfeccionar subrutinas). Trazando gráficos sin tener que preocuparse de si 

los puntos se salen de la pantalla. El relleno automático de bloques para dibujos 
a líneas. Sistemas efectivos para manejar grandes cantidades de información 
conservadas en las cintas del cassette como ficheros, que pudiera usarse como 
base de un sistema práctico de registro de discos, para el hogar o para la industria. 
De forma gradual, te llevaremos desde un simple sistema de archivos en 
cassette a un sistema de gestión de datos. 


En tercer lugar... bien, hemos notado que siempre que preguntas a un entusiasta 

de los computadores: "muy hermoso, pero ¿qué puedo hacer yo con esto?" tiende 

a cambiar de tema. Es como si el objetivo primordial de la computación, fuera 
hacer más cómputo. Meramente el Arte por el Arte, los ordenadores como 

"estilo de vida". Pero ¿no sería hermoso usar realmente el computador para 

hacer algo más? Aqui encontrarás algunas sugerencias: mapas, posiciones de 

los astros, experimentos psicológicos, estadistica simple, criptografía y criptoanálisis, 
manipulación de símbolos. 


Dos áreas que aquí no tratamos son Código Máquina y teoría "pura" -temas 
como estructura de datos y programacion estructurada. En otros libros tratamos 
sobre ellos, en Codigo Maquina y Mejor Basic y en Codigo Maquina del Spectrum. 


Nuestro objetivo primario no es producir programas altamente pulidos "dispuestos 
para el horno". El énfasis principal está en el proceso doloroso pero satisfactorio, 
de desarrollar una idea inicial en un programa que funciona. En lugar de presentar 
simplemente el resultado final, describimos algunas veces las rutinas que luego 
son modificadas, vueltas a escribir, revisadas o desechadas completamente 

y sustituidas por otras. Después de todo, asi es como cualquier programa que 

no sea trivial acaba siendo escrito, y lleva a confusión pretender lo contrario. 

No intentamos darte la impresión de que escribir programas pueda o deba ser 
fácil y sin esfuerzo. El punto importante es que todo el mundo comete errores, 
asi que no hay razón para desanimarse cuando tú los hagas. El truco es reconocer 
los errores y hacer que dejen de serlo. Desde luego, cualquier método que ayude 
a reducir las posibilidades de producir errores es digno de tenerse. 


Adicionalmente, sin embargo, algunas de las rutinas utilitarias más generalmente 
aplicables, están listadas separadamente en los apéndices, de manera que no 

es necesario emprenderlas con las descripciones de cómo se construyen, para 

ser Capaz de usarlas. Si todo lo que quieres es copiar los listados y pasar el 
programa, puedes hacerlo. Como en todos nuestros libros, hemos intentado 
mantener las explicaciones claras y simples. Este libro no es un curso rigidamente 
estructurado: está diseñado para que tú lo vayas ojeando y estudiando a tu 
gusto. Algunos capítulos sí dependen de los anteriores de alguna manera, pero 

es siempre obvio cuando asi ocurre. Asi que, comienza por poner el dedo en 
aquellos capitulos que tengan un atractivo particular para tus gustos, y da 

una pasada sobre ellos primeramente. Los encontrarás muy instructivos. Y 
divertidos también. 


Hasta ahora, nos hemos referido a nosotros mismos (los autores) 
como "nosotros" -pero como en el libro Fácil Programación hemos 
encontrado que no siempre funciona más adelante. Así que, a 

partir de ahora, nos referiremos a nosotros mismos, a pesar de 

ser dos, en singular y como "yo". Y siempre que digamos "nosotros", 
queremos decir "yo, el autor y tú, el lector". Puede parecer una 
idea absurda, pero realmente resulta más informativo de esa 
manera. 


Cuanto mayor ¿ea el esfuerzo que 
estés dispuesto a desarnollarn, más 
entrenado estaná tu Spectrum para 
realizanto. Gasta un par de horas, 
y podrás tener un... 


| Mapamundi 


Es una posibilidad. La misma técnica te permite dibujar y guardar en cassette, 
dibujos a línea en alta resolución, tales como caricaturas de Isaac Newton 

u Olivia Newton-John, o del paisaje marciano para que lo uses en programas 
con Trápalas del Espacio. 


Es fácil; pero exige tiempo. Aquí tienes un diagrama de un mapa-mundi en Spectrum, 
simplemente para convencerte de que los resultados justifican ampliamente 
el tiempo empleado. 


Figura 1.1 Un mapa de contornos del mundo, producido en un Spectrum. 


La forma difícil de meter esto en la máquina, es enfrascarse sobre las retículas 
de latitud y longitud, copiando las coordenadas, y abasteciendo con ellas una rutina 
de dibujo. 


La forma en que yo realmente lo he hecho, es basta pero efectiva. 


l. Corta una lámina de plástico transparente -tal como parte de una bolsa de 
polietileno- según el tamaño de la pantalla de tu televisión. 

2. Marca sobre ella el contorno de la zona central de la imagen en el Spectrum 
-la parte en la que puedes PRINT o PLOT. La forma fácil de hacerlo es teclear 
simplemente BORDER Q. 


DW A ]T_z*-. HA 


Busca un mapa del mundo, justo del tamaño adecuado a este área. 

Trazalo sobre el plástico, utilizando un rotulador de punta de fieltro. Saldrá 
una imagen bastante tosca. 

Deja que se seque la tinta, y teniendo cuidado de no frotarla, pega el mapa 
sobre el frente de la pantalla, alineándolo con el área central, y usando 
cinta adhesiva. 


Esos son los requisitos de "hardware" para este método. Vamos ahora con el "software". 


DIBUJERO 


6. Teclea un programa Dibujero, que te permita controlar y mover la "pluma" 
sobre la pantalla, por medio.del teclado, de manera que pinte una mota, 
o bien se mueva sin pintar. También es digno de tener algún medio de 
borrar los fallos. Aquí hay un programa que hará ese trabajo: desde luego 
que puedes hacerlo más complejo si te sientes con ganas. 


10 LET x=0: LET y=175 

20 OVER 1 

30 LET estela=0 

40 INPUT d$ 

50 LET x0=x: LET y0=y 

60 IF CODE d+<608 THEN 50 TO 100 
70 IF d$="m"” THEN LET estela=9 
80 IF d$="p" THEN LET estela=1 
90 G0 TO 40 

100 REM Segun numero pulsado 

110 GO SUB 10xCODE d$-290 

120 IF estela=0 THEN FPLOT x0,y0 
130 PLOT x,y: 60 TU 40 
200 LET LET y=y+1: RETURN 
z10 LET : LET y=y-1: RETURN 
220 LET x= LET y=y-1: RETURN 
230 LET x LET y=y+1: RETURN 
240 LET RETURN 
250 LET > RETURN 
260 LET RETURN 
270 LET x=x RETURN 


Usando los controles del teclado (como explicamos en detalle más adelante) 
mueve la pluma hasta un punto situado por debajo de los contornos trazados, 

y sigue los contornos pintando la mota a medida que vas pasando, construyendo 
asi el contorno de los continentes. Cuando hayas terminado de recorrer un 
continente, pasa sin apoyar la pluma hasta el siguiente, y luego comienza 

de nuevo a dibujar. 


Lo ves, realmente es fácil. Y además los resultados pueden ser magnificos si 
le echas tiempo y cuidado para no equivocarte. 


USANDO EL DIBUJERO 


El programa puede estar en uno de dos "modos": 


m: MUEVE la pluma a una nueva posición; 


p: PINTA la posición corriente a medida que se mueve la pluma. Ny 
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Se comienza con 'm'". En cualquier momento, puedes cambiar los modos tecleando 


el simbolo "p" o el "m". 


El movimiento está controlado por las teclas 1-8 como sigue: 


La pluma se mueve a partir de su posición corriente (*) una mota hacia arriba, hacia 
abajo, lateralmente o diagonalmente según los números. (El orden puede parecer 
extraño: la idea es que las teclas "flecha" 5-8 funcionen como habitualmente, 

y los movimientos "diagonales" 1-4 comiencen como el reloj a la 1 y se muevan 

a derechas). 


El programa, tal y como está, exige que teclees cada número y el símbolo del modo 
(pulses dos teclas). Puedes usar, si lo prefieres INKEYS; pero de esta forma, 

tienes la posibilidad de comprobar que has pulsado la tecla correcta antes de que 
hagas algo equivocado. 


Experimenta con los movimientos. Dado que usamos la instrucción OVER 1, si pintas 
dos veces en el mismo sitio, la mota correspondiente se queda en blanco. Eso te permite 
borrar los errores. Sin embargo, debes llevar en cuenta dos cosas: 


Para pasar a una nueva región, haz un desplazamiento alejándote de tu curva 
acabada (en una dirección que luego no tropiece con ella) antes de cambiar a 
modo "'m". 

Al llegar a un nuevo trozo de curva, no pulses "p" hasta que tu pluma esté 
exactamente alineada con ella. 


Si cometes errores al escoger los modos, la tendencia es que obtengas motas aisladas 
sobre la pantalla. Para quitártelas de encima, ponte en modo 'm". Mueve la pluma 
hasta que estés encima de ellas (lo que las machacará); pasa al modo "p"; desplaza 
una posición; regresa al modo "m". Ensáyalo. 


No esperes un resultado muy pulido en los primeros diez minutos. 


GUARDANDOLO 


Una vez que estés satisfecho, guarda en cinta el mapa trazado: no necesitas gastar 
otras dos horas pegado a la pantalla otra vez. Simplemente deten el programa Dibujero; 
luego teclea como un comando directo: 


SAVE "mapita" SCREENS 
Para CARGARLO de nuevo en memoria, lo efectuarás mediante la rutina usual. 
Teclea LOAD "mapita" SCREENS 


Algunos de los capítulos posteriores de este libro, suponen que has dibujado un mapa 
(puede ser mucho más simple que el de mi foto) y que lo has guardado en cinta asi 
que ¡A currar se ha dicho! 


Algunas veces, el principal problema 

al escuibin un programa es simplemente 
decidian qué es lo que La máquina tiene 
que hacer... como es el caso de este 
programa utensilio gráfico que sombrea 
regiones de la pantalla -con unas cuantas 
restricciones sobre el contorno de La 
figura. 


2 Rellenando Bloques 


La idea primitiva fue:"¿no sería bonito mostrar en pantalla un mapa-mundi en que 
las áreas concernientes a los mares estuvieran ennegrecidas”?" Y el pensamiento 
inmediato fue "usando el programa Dibujero, me llevaría semanas". Desde luego 
que la idea fue conseguir que el Spectrum hiciera todo el trabajo. Suena fácil a 
primera vista, y en los casos simples lo es, pero no puedes decirle al Spectrum 
"encuentra las curvas cerradas y rellena la parte de dentro", porque el pobre no 
sabe lo que es una curva cerrada, ni tiene ningún Conocimiento Instintivo. Ni 
"desde luego" parece que este enfoque pueda funcionar a nivel de cómputo. 


Comencemos con un caso fácil y desarrollaremos el mapa en etapas sucesivas. La 
tarea mas simple es rellenar una region simple y cerrada, equivalente a un circulo 
o a un poligono. El titulo que buscamos es: 


COLORERO 


Supongamos que tenemos un poligono cerrado pintado en la pantalla. Ignoremos la 
pongar q poligon p oy pant E 

pragmatica por el momento, y consideremos la teoretica: "¿Cuales son los pasos 

que el ordenador debe seguir con el fin de rellenar la parte interna de un contorno?" 


La respuesta es fácil: 


l. Para cada línea horizontal, encontrar el punto extremo-izquierda del poligono 
a partir de la izquierda. 
Encontrar el extremo-derecha del poligono buscando a partir de la derecha. 


2 
3. Unir ambos extremos mediante una linea horizontal. 


4. Repetir para cada línea. 


La forma de ver si una mota está pintada en la pantalla, es usar la función POINT 
(Programación Fácil*, pagina 36). El valor de POINT (x, y) es 1 si hay una mota trazada 
en (x, y); Y si no lo está. Así que el programa que queremos es éste: 


10 FOR y=0 TO 175 

20 LET x1=0 

30 IF POINT (x1,y)=1 THEN 60 TO 60 
40 LET x1l=x1+1 

50 IF x1<=255 THEN 60 TO 30 

60 LET xr=255 

70 IF POINT (xr,y)=1 THEN 60 TO 100 
380 LET xr=xr-1 

90 IF xr>=0 THEN 650 TO 70 
100 IF x1>=256 THEN 650 TO 120 
110 PLOT xl,y: DRAW xr-x1,0 
120 NEXT y 


Como prueba, mete este programa; luego teclea el comando directo: 
CIRCLE 127, 87, 87 
(por ejemplo) y a continuación teclea 


GO TO 14 
(no RUN, que borraría la pantalla!) 


ANTES DURANTE 


Figura 2.1 Con figuras fáciles, sombreando desde el punto extremo-izquierda hasta el punto 
extremo-derecha funciona. 


Es lento, estate seguro (cualquier rutina que coloree lo va a ser; la cantidad de cómputo 
esta predestinada a ser grande porque hay 45.056 motas en la pantalla de las que 
preocuparse) pero funciona. 


Si la combinas con la rutina del capítulo 13 que dibuja poligonos, de manera que primero 
dibujes un poligono sencillo, luego lo colorees, verás que continúa funcionando. 


* Programación Fácil del ZX Spectrum por lan Stewart y Robin Jones, Shiva. 


RÁ KO 


LAS PEJIGUERAS 


Sin embargo, falla estrepitosamente cuando son varias las regiones que necesitan 
colorearse (y desde luego, tambien en otros casos). Ensaya: 


CIRCLE 50, 50, 49: CIRCLE 160, 50, 49 
GO TO 10 


Eso no era lo que pretendiamos, ¿verdad?. 


Lo que está haciendo es encontrar el punto extremo-izquierda de un circulo, y luego 
el púnto extremo-derecha del otro, y uniendo esos dos. Una forma de arreglarlo es 
conseguir saber qué curva cerrada es cada una, pero eso parece bastante lioso y largo. 
Y, en todo caso, todavía tenemos problemas incluso aunque sólo haya una curva. 
Ensaya con esto: 


PLOT 100, 50: DRAW 50, -50: DRAW -50, 100: 

DRAW -50, -100: DRAW 50, 50: 

GO TO 14 
Es un poligono simplemente conexo (que dicen los matemáticos), con forma parecida 
a la de la punta de una flecha; y el programa nos colorea demasiado. 


Aquí la razón es que ciertas líneas horizontales cruzan la figura en más de dos puntos. 
Por ejemplo, una línea como la mostrada en la figura 2.2, tropieza en cuatro puntos 

y solamente queremos colorear entre el 192 y el 22 y el 32 y el 42. Pero no entre 

el 292 y el 329, 


Figura 2.2 Sobre figuras más complicadas, no funcionará ! 


Lo que nos sugiere es esto: 


l. Rastrear a lo largo de la línea, buscando los puntos de cruce con la curva, y 


enumerarlos todos. 
2. Dibujar del 12 al 29, del 32 al 40, ...y en general desde los impares (2 * ¡ + 1) 
hasta los pares (2 * ¡ + 2) variando la i desde l a lo que corresponda. 


Si piensas que ahí está el truco, intenta escribir un programa para resolverlo. Luego 
comprueba ese programa con la figura de flecha citada. 


Seguro que has dado un alarido. 


Ya va mal en la primera linea. Sólo hay dos puntos; pero no quieres tirar una línea 
entre ellos, porque es la punta de un trozo de poligono que resalta, y entre ellos lo 


que hay es "una bahía". 


Si pintas sobre pedazos de papel, llegarás a convencerte por tí mismo, que aparte 

de este problema de "las puntas de los cuernos" la idea puede funcionar. Por ejemplo, 
con las formas mostradas en la figura 2.3, colorea correctamente en las líneas A y B, 
pero no en la C ni en la D que tropieza con puntas. Nota que funciona incluso cuando 
hay varias curvas cerradas en el diagrama. 


Asi que el problema ahora es: "Cómo reconocer la punta del cuerno" 


Figura 2.3 Rellemando entre las intersecciones impares y pares, sería el truco, excepto en los 
cabos de las penínsulas, como sucede en las líneas C y D. 


Obviamente, el rasgo característico de un cabo es que la curva no cruza realmente 
la linea horizontal. Entra por un lado, posiblemente coincide con ella durante un rato; 
pero luego, la deja por el mismo lado en que entro. 


Compara los dos casos mostrados en la figura 2.4. 


YU KO 


NO CRUZA 


Figura 2.4 Para localizar los cabos de las penínsulas, se mira si la curva cruza la línea 
horizontal o no. 


Así que lo que parece que necesitamos es una rutina que nos diga si la curva cruza 
la línea o no; y si lo hace, la ignoramos. Con el fin de ver si cruza, necesitamos 
también ser capaces de reconocer el trozo que circula a lo largo de la línea en que 
estamos interesados. Así que observaremos los cuadritos (pixels) que rodean los dos 
extremos de ese tramo, y miraremos a ver si están adecuadamente rellenos (mira 
figura 2.5). 


Figura 2.5 Detección de cruces, escrutando dos cuadrados de 3 x 3 cuadritos (pixels). 


De hecho, todavía somos un poquito cándidos; pero hemos conseguido una idea 
desarrollable, y ella nos lleva al siguiente programa. 


SUPERCOLORERO 


10 LET rastrea=1000 
20 LET prueba=2000 
30 LET lista=3000 
40 LET sombrea=4000 
50 DIM a(20) 

60 DIM b(20) 
200 FOR y=1 TO 174 
205 LET q=0 


LET x=1 

IF x>=255 THEN 60 TO 400 

IF POINT (x,y)=0 THEN LET x=x+1: GO TO 220 
LET xl=x: GO SUB rastrea 

GO SUB prueba 

LET x=xr+1: GO TO 220 

GO SUB sombrea 

NEXT y 

REM rastrea 

LET c=0 

IF x1+c>=259 THEN RETURN 

IF POINT (xl+c,y)=0 THEN 60 TO 1060 
LET c=c+1: GO TO 1020 

LET xr=x1+c-1 

RETURN 

REM prueba 

LET 11=0: LET lu=0: LET rl=0: LET ru=0 
FOR e=-1 TO 1 

IF POINT (xl+e,y-1)=1 THEN LET 11=1 
IF POINT (xl+e,y+1)=1 THEN LET lu=1 
IF POINT (xr+e,y-1)=1 THEN LET rl=1 
IF POINT (xr+e,y+1)=1 THEN LET ru=1 
NEXT e 

IF 11+r1=0 OR lu+ru=0 THEN RETURN 
GO SUB lista 

RETURN 

REM lista 

LET q=q+1: LET atq)=xr 

RETLIEN 

EKEM sombrea 

IF y<=1 THEN  FETUEN 

FOR t=1 TO 20 STEP Z 

IF bct+1=0 THEN 60 TO 4100 

PLOT b(t)>,v-1: DRAW b(t+1)-b(t>,0 
NEXT t 

FOR t=1 TO 20 

LET b(to=a(ít> 

NEXT t 

OIM acz0> 

FETLIEN 


Antes de describir algunas de las peculiaridades de esta rutina, te sugiero que la 
ensayes primeramente. Tecléala, y luego añade: 


Il. CIRCLE 50, 50, 48: CIRCLE 50, 50, 44: 
CIRCLE 200, 40, 37: CIRCLE 205, 38, 20 


para tener algo que colorear. Ahora, pasa el programa. Es relativamente lento, pero 
parece que funciona, tal como demuestra la figura 2.6. 


Ahora vienen las explicaciones. Las lineas 2P0-5PP constituyen el programa principal: 
un bucle que comprueba a lo largo de cada línea horizontal (excepto la superior y 

la inferior) si hay o no trozos de curva. Si encuentra un trozo, va a la subrutina 
"rastrea" que sigue la curva a lo largo de la línea hasta encontrar los extremos 


IA 


(como se marcaron en la figura 2.5); luego va a la rutina prueba, que decide, 
examinando la cuadricula 3 x 3 alrededor de cada extremo, si la curva cruza o no 
la línea. Si si lo hace, la rutina lista anota las coordenadas pertinentes. 


Después de que se ha explorado una línea de esta Áorma, se rellena uniendo el primer 
punto al segundo, luego el tercero al cuarto, y así sucesivamente como sugerimos 
anteriormente. Sin embargo, hay una triquiñuela. Si rellenas la línea demasiado pronto, 
interfiere con la rutina prueba de la siguiente línea, y lo que obtienes es morralla. 
Así que la lista de los puntos se guarda primeramente en un buzón -la tabla a- y 
luego se transfiere a otra tabla b en la siguiente exploración, dispuesta para ser 
trazada. Las líneas 4100-4124 efectúan esta tarea. 


Figura 2.6 Coloreando la región entre los dos círculos de prueba: antes (a), durante (b), y 
después (c). 


Para mantener sencillo el programa, se ha supuesto que las curvas a colorear no tocan 
los bordes (filas f y 175, columnas Y y 255). Asi que lo que se explora son las filas 
l a 174 desde la columna 1 hasta la 254. 


EL MAPA 


Hasta ahora todo va bien, pero ¿pasará la prueba decisiva? ¿Coloreará el mapa-mundi? 


Carga tu mapa en memoria, usando 
LOAD "mapita" SCREENS 
y luego tecleando 
GO TO 14 
(no RUN, que arruinaría el mapa). 


Ahora bien, tu mapa puede que no sea exactamente igual al mio. Lo que yo obtuve 
fueron las figuras 2.7 y 2.8. 


Figura 2.8 ...y unas cuantas más! 


No está mal; pero no es perfecto tampoco. Hay fiebre malaria en Malasia y cierta 
confusión ruso-americana en las Aleutianas. Asi que ¿qué es lo que ha fallado? 


No es que haya pifias en la rutina de coloreado. Es más bien que la teoría sobre la 
que descansa, no funciona en ciertos casos... repugnantes. Examinando cuidadosamente 
el mapa, es posible observar que todos los sombreados defectuosos corresponden a 

uno de dos casos: 


l. "extremos colgantes" como la figura 2.9a, o bien 
2. "curvas tocantes" como la figura 2.9b. 
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Figura 2.9 Las causas de las pifias: extremos colgantes (a), y curvas tocantes (b). 


El método también se desmorona si las curvas se cruzan -simplemente, no está diseñado 
para manejar esa posibilidad. 


Hay dos maneras de quitarlo. Una es refinar el programa para que busque extremos 


colgantes y curvas tocantes, y hacer algo con ellas: eso es dificil y requiere su tiempo. 
La otra es usar solo curvas que no posean esos rasgos tan indeseables. 


Figura 2.10 Depurado y completo. 


Así que: si la rutina falla con tu mapa, como hizo con el mio, lo que debes hacer 
es usar el programa Dibujero para modificar el mapa, quitando los extremos colgantes 
y las curvas tocantes. Y luego, lo coloreas. 


A 


Posiblemente, todavía permanezcan unas pocas taras: yo no garantizo que no haya 
otras peculiaridades inoportunas. (Las interrupciones en la curva, causan estragos, 
pero realmente son también simples extremos colgantes). Pero serás capaz de 
percatarte cuando surgen, y usar el Dibujero para eliminarlas. Después de unas pocas 
pasadas, terminarás al final con algo como la figura 2.10. Cuando lo logres, guardala 
bajo un nuevo nombre, digamos 


SAVE "mapasólido" SCREENS 
y ya la tienes dispuesta para usar en otros programas. 


Si crees que la forma es un poco rara, es porque el mapa del que parti fue una 
proyeccion equiarea Hammer, no la proyeccion Mercator, mas habitual. 


EL METODO DE INCENDIANDO LA PRADERA 


Hay una aproximación totalmente diferente al programa de coloreado a la que puedes 
dedicar tus esfuerzos. La idea es dar al Spectrum una pista, "encendiendo un fuego" 
en una de las regiones del mapa con tierra. Para hacerlo, dile simplemente (por 
medio del teclado, o con una mota móvil) las coordenadas de ese punto. Por ejemplo, 
el punto 125,84 en el medio de Africa. 


Ahora, deja que se desparrame el fuego: es decir, rellena todos los cuadritos 
adyacentes a menos que tropieces con la línea de la costa. Usando estos como nuevo 
punto de arranque, haz que progrese el fuego todavía más. Solamente para 

alcanzar la costa. De hecho, el fuego iniciado en Africa se desplegará a lo largo de 


Asia y de Europa al final. Nunca alcanzará el Reino Unido, ni America, ni Australia; 
así que tendrás que colocar "chispas" adecuadamente, para que también comience 

el fuego ahí... de hecho, necesitas un punto de ignición en cada masa de tierra 
conectada. 


No es un método difícil de programar, pero el bosquejo anterior tiene que efectuarse 
de manera mucho mas precisa. Si quieres un proyecto interesante para un programa, 
ahi tienes uno bueno. 


COLOCANDO EL FUEGO EN EL MAR 


Dado que el mar está bastante más conectado que la tierra, una forma mejor pudiera 
ser que fuera el mar por donde se desparramara el fuego (solamente tendrias que 
encenderlo separadamente para el Mar Caspio y el Mar Aral), habiendo estipulado 
que el color de la tierra corresponde al PAPER. 


Sí estás usando continuamente en 

el programa La misma expresión, con 
diferentes valones para las variables, 
no recunas a una subrutina -hecunne a: 


3 Funciones definidas por el usuario 


Una función viene a ser como las "cajas negras". Tú le das algunas ristras numéricas 
o litéricas, -los argumentos-; ella te devuelve otras -los resultados-. Por ejemplo, 

si tú das como argumento de la función LEN la ristra "litero" te devuelve el número 
6 -la longitud de esa ristra- porque lo que ejecuta es 


LEN "litero" = 6 


El Spectrum tiene un montón de funciones incorporadas como VAL, COS, TAN, EXP, 

y muchas otras. Pero algunas veces, te encuentras usando continuamente una expresión 
determinada, una y otra vez, sobre variables diferentes. Tú puedes realizar esto como 
una subrutina, lo que involucra habitualmente, montones de comandos LET a = 39: 
LET b = 21 ...antes de que puedas citar la subrutina. 


La tecla DEF FN (modo E/tecla SYMBOL-tecla 1) te permite estipular tus propias 
funciones; y la tecla FN (modo E/tecla SYMBOL-tecla 2) úsalas. Cada una debe estar 
seguida de una sola letra: DEF FNa y FNa; o bienDEF FNb y FNb; y asi recorriendo 
el alfabeto. Si el valor resultado es un literal, tienes entonces que usar FNaS, FNbS, 
etc. Puedes usar mayúsculas también; pero el Spectrum no te lo tiene en cuenta. Es 
decir, él considera idénticas FNa y FNA. Así que lo que tienes a tu disposición son 
26 funciones de cada tipo, numérico y litérico. 


Por ejemplo, supón que en nuestro programa permanentemente queremos sumar tres 
números y luego dividirlos por 3 para obtener la media. Tenemos en el programa 
montones de expresiones como (x + y + z) / 3 y (preciol + precio2 + precio3) / 3 
desparramadas por todo el listado. Por lo que estipulamos una función como ésta: 


19 DEF FNa (p, q, 1) = [p+q+r5)/3 


Una vez que hemos hecho esto, podemos sustituir las expresiones mencionadas por: 
FNa (x, y, z) 
FNa (preciol, precio2, precio3) 

siempre que aparecen en el programa. 


Vamos a comprobarlo: 


10 DEF FN atp, qyri=(p+qrtri/z 
20 INPUT x,Y,z 
30 FRINT FN alm,v,z) 


A 


Pasas este breve programa e impones valores a los argumentos como: 
2 3 (resultado 2) 
4 (resultado 4) 
3 (resultado 57) 


para asegurarte que funciona correctamente. 


Son dignos de notarse varios puntos. Primero, las variables p, q, r que aparecen en 
la definición de función -llamadas argumentos o parámetros- son simplemente sitios 
de la memoria con ese nombre: puedes usar esas mismas letras en cualquier otra 
parte del programa sin que provoques ningún desastre, y puedes definir la misma 
función, usando otras letras, por ejemplo: 


10 DEF FNa (a, b, c) = la + b + Cc) / 3 


No importa incluso, si la letra usada para denominar la función (en este caso "a") 
aparece tambien como argumento dentro de los parentesis que definen la funcion. 
El Spectrum puede distinguir cual es cual. 


Además, las letras de dentro de los paréntesis deben ser simples: no puedes usar 
variables como preciol en la definición. Aunque no hay ningún percance si usas 
preciol cuando la función se cita en otra parte del programa: FNa (preciol, precio2, 
precio3) es totalmente correcto. 


Puedes tener variables litéricas en la definición, pero también deben ser únicamente 
: z > 

una letra, seguida del signo $. Puedes mezclar números y líteros; y el ordenador es 

completamente feliz con expresiones como 


19 DEF FNb (b, b$) = b * LEN b$ 


incluso aunque la "b" aparece en tres lugares con tres significados diferentes. Luego, 
al citar FNb se multiplica la longitud de la ristra b$ por el número b. Si tú citas 
luego 


FNb (7, "sarta") 
obtienes como resultado 35, que es lo que se encuentra al calcular 
7 * LEN "sarta" = 7 * 5= 35 
La definición de una función no tiene por qué venir delante en el programa, antes 


de poderla usar; pero debe estar en alguna parte del programa (de la misma forma 
que las definiciones DATA). 


Como otro ejemplo, ensaya la función con parámetros y resultados literales, 
siguiente: 


10 DEF FNmS (uS, vS) = u$ + u$ + v$ 
y determina lo que obtendrás cuando la apliques con los siguientes argumentos: 
FNmS ("B", "C") 
FNmS ("pa", "natas") 
FNmS ("ca", "huete") 
ENmS ("Bi", "O Andersen") 


Cada definición de función, debe incluir los paréntesis. Pero puede no tener argumentos 
dentro de ellos! Si escribes 


19 DEF FNk () = 7 


siempre que cites FNk te devolverá el número 77. (hay otras ocasiones más sutiles 
donde realmente puede ser útil este tipo de cosas: aqui simplemente parece estúpido). 


Además, la definición de la función puede incluir en la expresión, variables que 
no estén encerradas entre los paréntesis, por lo que no serán argumentos de la función; 
siempre que tengan un valor definido previamente en el programa. Por lo tanto: 


10 DEF FNa (x) = x + q 
24 LETq = 5 
3/0 PRINT FNa (10) 


da como resultado 15, pero 


10 DEF FN a(x)=x+q 
20 PRINT FN a(10)> 
30 LET q=S 


da un mensaje de error. (AVISO: limpia las variables -pulsa CLEAR- antes de comprobar 
ésto; el valor de q todavía permanece en memoria como consecuencia del primer 
ensayo). Para comprobar que la definición realmente puede ir en cualquier parte, 
ensaya 


10 LET q=5 
20 PRINT FN a(10) 
30 DEF FN atx)=x+q 


ALGUNOS USOS 


Sólo merece la pena definir una función de esta forma si (1) continúas usando la 
misma expresión una y otra vez pero con diferentes valores de los argumentos o 

(2) tu programa manipula una función que no es siempre la misma -tal como un 
programa de gráficos que traza la curva de una función dada. En ese caso, puede 

ser preferible escribir por ejemplo, FNa para manipularla; y luego hacer que el usuario 
edite el valor deseado de la función (o trucos sigilosos con la función VAL, y puede 
usarse en instrucciones INPUT -con un coste: un programa más lento. Véase Capitulo 
16). 


Por ejemplo, la distancia entre los puntos (a, b) y (c, d) en la pantalla, tomando 
como unidad de distancia la mota gráfica, viene dada por: 


19 DEF FNd (a, b, c) = SQR (la - c) * (a - c) + (b - d) * (b - d)) 


que es la versión del Spectrum del Teoréma de Pitágoras. Si tienes un montón de 
distancias que calcular, esto puede ser útil. (No sólo en matemáticas: puedes tener 
un mapa de los Estados Unidos y desear conocer lo lejos que está Los Angeles 

de Oklahoma City). 


Ten siempre en mente la posibilidad de usar valores lógicos. Recuerda que una aserción 
logica .como "x < > 4" tiene, según el ordenador, un valor numérico: | si es cierta, 
0 si es falsa. Por lo tanto 


10 DEF FNOo (u, v) = u> = VQ AND u<= 255 AND v > = P AND v <= 175 


A ————— IX áXÉ o 


puede parecer a primera vista una tontería; pero para el Spectrum tiene claridad 
meridiana. De hecho, FNo comprueba si en una determinada posicion (u, v) está 
dentro de los límites de la pantalla o no: 


FNOo (u, v) = 1 si y sólo si el punto (u, v) cae dentro de la pantalla 
FNO (u, v) = Y si y sólo si el punto (u, v) cae fuera de la pantalla 


Asi que, si necesitas comprobar a menudo ésto, es razonable considerar usar esta 
función. 


O, consideremos las tarifas presentes para periódicos por correo aéreo fuera de 
Europa. Dependen del peso, y de la zona (A, B o C) en la forma siguiente: 


AA TA 
Primeros 1f grs. 24 26 


Cada 10 grs. adicionales 
o porción de ellos 


Establezcamos una función definida por el usuario FNp que nos dé el precio para 
cualquier peso de w gramos y en cualquier zona z$ (= "a", "b", o "c"). Nos entregara 
un valor numérico, así que no tenemos que llamarla ENPS, Y será algo así como: 


DEF FNp (w, z$) = algo bastante lioso... 


Vamos a abordarlo gradualmente. Pensemos primero, simplemente en la zona A. 
Para mayor simplicidad, supongamos que el peso siempre es mayor de (. Por lo 
tanto, siempre se aplican los "primeros 1f gramos", así que ciertamente siempre 
pagaremos como minimo 24 pesetas. El peso que queda, será w - 1f. Si esto es Y 
o negativo, entonces ya está hecho; pero si no lo es, debemos redondearlo a los 
siguientes 1f gramos. 


Para redondear un número n al siguiente múltiplo de 1/, podemos usar la expresión 
-10 * INT (-n/10) 


Compruébalo: si n = 43, tendremos: 
-n = -43 
-n/10 = -4,3 


INT (=n/10) = -5 (si, así es. Ensayalo. La función INT redondea por 
abajo) 


10 * INT (=n/10) = -590 
-19 * INT (=n/10) = 59 

que es lo que queríamos. 

Como necesitaremos hacer esta tarea varias veces, vamos a definir una función: 
DEF FNr (n) = -INT (=n/10) 


que es la función "redondeo" después de dividir por 18. ¡Muy bien! 


a 


Ahora, en la zona A, el precio que pagaremos es 
24 + 11 * FNr (w - 10) 


siempre que w > 10, y sólo pagaremos 24 si w <= 10. Hmmm... valores lógicos! 
Tendrémos que pagar 


24 + (w> 10) * 11 * FNr (w - 10) 


porque (w > 18) adopta el valor 1 cuando w > 10, y nos añade la porción de coste 
extra; pero adopta el valor Y cuando w < = 1f, lo que nos deja simplemente las 24 
pesetas. 


Las zonas B y C tienen expresiones similares, pero con diferentes valores en lugar 
del 24 y del 11. ¿Como vamos a desarrollarlas? 


Si usamos las letras minúsculas "a", "b", "c" para la variable zona z5, entonces los 
valores logicos vienen de nuevo en nuestra ayuda. El número 
24 + (z$ = "a") + 26 * (z$ = "b") + 29 * (z$ = "c") 
adopta el valor 24 si z$ = "a", 26 si z5 = "b", y 29 si z$ = "c". (¿Por qué será?) 
Y de la misma manera podemos tratar la parte 11 - 14 - 15. 
Todo eso nos lleva a las definiciones: 
19 DEF FNr (n) = -INT (-n/10) 
20 DEF FNp (w, z5) = 24 * (z$ = "a") + 26 * (z$ = "b") + 29 * (z$ = "c") 
+ (11 * (z$ = "a") + 14 * (z$ = "b") + 15 * (z$ = "c"")) * 
(w > 16) * FNr (w - 10) 


y asi FNp (w, z$) nos da el precio del periódico, peso w, en la zona z$. 


Proyectos 


Establece FNt de manera que FNt (x) dé el coste de x latas de cerveza a 65 
pesetas la unidad. 

Define FNu de manera que FNu (x, p) dé el coste de x latas de cerveza a p 
pesetas la unidad. 

Define la función FNj$ de forma que FNj$S (aS, bS, c$) entregue la ristra aS, 
o b$ o c$, que venga antes según el orden alfabético. (Nota: dos literales a$ 
y b$ están en orden alfabético si a$ es < = b5, según la notación del Spectrum 
para ordenamiento de valores literales). 

Para los periódicos registrados en la dirección de correos, la tabla de precios 
anterior se convierte en: 


a 7 
Primeros 14 grs. 


ME 
Cada 10 grs. adicionales 
2 3 4 5 
o porcion de ellos 


Define FNq (w, z$) para que suministre el precio correspondiente a un periódico 
registrado, con peso w y zona z$. 

Combina FNq y FNp (en el texto) para dar una función FNr (w, z$, y) siendo 

w el peso, z5 la zona, e y = / para periódicos no registrados, y = 1 para los 
registrados. 


...hubo una vez un programador que 
s4empre usaba tinta violeta porque le 
gustaba que 5us programas permaneciernan 
"inviolados”... 


4 Caracteres de Control 


Sin ninguna duda, habrás descubierto que la fila superior de teclas en tu Spectrum 
funcionan de forma diferente al resto, en cuanto a los modos y demas. Si no lo 
has hecho, ensaya el siguiente experimento. Pulsa sucesivamente: 


NEW 

CAPS SHIFT y SYMBOL SHIFT (para el modo ampliado: E) 
La tecla 4, de la fila superior 

"dedos" 


Te encontrarás que tienes dedos verdes... 


Al usar la fila superior de teclas en el modo ampliado (pulsando o no la tecla que 
elige mayúsculas) puedes, directamente a partir del teclado, fijar los colores, 
parpadear, ponerlo brillante, cambiar la posición en pantalla de lo expuesto, y asi 
sucesivamente. El Manual da detalles completos de los efectos de determinadas 
combinaciones de teclas y modos; la parte importante para nosotros es: 


Tecla Efecto en modo extendido 


Sin CAPS SHIFT Con CAPS SHIFT 


PAPEL azul TINTA azul 

PAPEL rojo TINTA roja 

PAPEL magenta TINTA magenta 
PAPEL verde TINTA verde 
PAPEL cyano TINTA cyano 
PAPEL amarillo TINTA amarilla 
PAPEL blanco TINTA blanca 
BRILLO quitado PARPADEO quitado 
BRILLO puesto PARPADEO puesto 
PAPEL negro TINTA negra 


SS vwWO0 Y 0D + uyNnN 


EFECTOS SOBRE LOS LISTADOS 


Para propósitos de prueba, mete unas pocas lineas de programa: 
19 REM 
20 REM 
3/Y REM 


Ahora, sucesivamente pulsa: 


la) 1 

(b) REM 

(c) modo extendido/CAPS SHIFT y 9 
(d) ENTER 


Vigila cuidadosamente el cursor para asegurarte que realmente obtienes el modo 
extendido. Observarás que el programa entero,¡excepto la línea 1, parpadea. Listalo; 
todavia sigue parpadeando. 


Repite lo anterior, pero usa ahora diferentes teclas de la fila superior; y deja algunas 
veces fuera la tecla de elección de mayúsculas, en la acción (c). Hmmm... la pena 
es que afecta a todo el listado... ¿o no es asi? 


Vuelve a la versión parpadeante de la línea l; y añade 
11 REM [modo ampliado/4] 


Ahora, todo lo que está después de la línea 11 se ha puesto verde (color 4). Pero 


todavía sigue parpadeando... ¿No había en la tabla anterior algo que quitara el 
parpadeo? Asi que puede ser que necesitemos: 


11 REM [modo ampliado/4] [modo ampliado/CAPS SHIFT y 8] 


para sacarnos de encima el flash, pero mantener el verde desde la línea 20 en adelante. 
Ensaya y veras. 


CARACTERES DE CONTROL 


¿Qué es lo que está pasando? 


Si consultas la lista de los códigos de los caracteres en el Manual, encontrarás un 
puñado de ellos al principio (número 6 a 23) que no pueden ser expuestos en pantalla 
(incluso ni como signos ?). Son los que llamamos caracteres de control y que afectan 
al funcionamiento del sistema. 


He aquí la lista: 


Carácter 


coma PRINT 

EDIT 

cursor a izquierdas 
cursor a derechas 
cursor hacia abajo 
cursor hacia arriba 
DELETE 

ENTER 

número (usado en la organización del programa) 
(no usado) 

control INK 
control PAPER 
control FLASH 
control BRIGHT 
control INVERSE 
control OVER 
control AT 

control TAB 


Estos caracteres, residen en la memoria como cualquier otro carácter, pero no 
aparecen expuestos en pantalla ni salen en los listados. Cuando usas la fila superior 
de teclas en el modo ampliado, lo que metes es alguno de estos caracteres. Por 
ejemplo, pulsando la tecla 4 con CAPS SHIFT tiene el efecto del carácter de control 
INK, con el color verde. 


Aunque tú no ves en el listado un carácter de control, sí que ves su efecto. Y puedes 
comprobar que realmente está en la memoria, bien sea mirando lo contenido en 

la dirección pertinente (ver libro Programación Fácil), o bien mediante el siguiente 
experimento. Oprime sucesivamente 


(a) 1 

(b) REM 

(c) modo E/l 
(d) modo E/2 
(e) modo E/3 
(£) modo E/4 
(g) modo E/5 
(h) modo E/6 


en que, con modo E nos referimos al modo ampliado o extendido. Observa que a 
diferencia del modo grafico, tienes que elegir el modo E cada vez. 


Verás que el cursor no se mueve, después de la REM. Simplemente cambia 
sucesivamente de color. Ahora usa DELETE, manteniendolo pulsado para la 
repetición automatica; observa cuanto tiempo tarda en efectuar su funcion a medida 


que pasa por todos esos caracteres de control. 


24 


Ensaya de nuevo, pulsando DELETE repetidamente en pulsaciones individuales; y 
vigila los cambios en la imagen. Obviamente, hay un monton de caracteres en la 
memoria que no aparecen en absoluto en la pantalla. 


LISTADOS PARPADEANTES 


Realmente, tú puedes aprovechar esta posibilidad; no es simplemente un truco bonito. 
Por ejemplo, puedes hacer que las sentencias REM se destaquen en un listado para 
mayor visibilidad: 

1. REM [modo E/CAPS SHIFT-9] Asi se destaca [medo E/CAPS-3] 

19 REM 

29 REM 


etc. 


Lista este programa y comprueba que las sentencias REM continúan parpadeando. 
Ahora guardalo en cinta, limpia la memoria, cárgalo de nuevo... y si, todavia parpadea. 


De forma similar, puedes destacar por colores las secciones de un programa, por 
ejemplo, las subrutinas. Impón los caracteres de control al comienzo de la primera 
línea de la rutina (después del número de línea -o también, al final de la linea anterior, 
ya que todo lo anterior a un número de línea queda ignorado). Todas las líneas 
subsiguientes aparecerán en el listado con ese color. 


Para hacer un listado invisible, fija los colores de tinta y de papel al mismo valor. 
(Pero sigue listandose por impresora correctamente; o listará a partir de la línea 
siguiente a la que tiene el carácter de control, de manera que no te puedes proteger 
contra los piratas de esta forma. Nada sirve completamente de protección infalible 
ante los piratas; pero hay trucos, de los que éste es el más simple, para desanimar 
a los aficionados). 


USO EN LOS PROGRAMAS 


Puedes aprovechar en los programas los caracteres de control, para evitar tener 
que fijar la tinta, el papel, etc. por todas partes. Es útil especialmente, al crear 
imagenes llenas de color, titulares de paginas para los programas, y cosas similares. 


Por ejemplo, para mostrar la bandera tricolor francesa en cualquier posición r (renglón) 
y C (columna), usa esto: 

19 PAPER Q: INK 7: BORDER Q: CLS 

20 INPUT r, c 

39 FOR i=0Q0 TO 2 

40 PRINT AT r + i, c; "(modo E/1) DO (modo E/7)0 O 

(modo E/2)00 " 
50 NEXT ii 


en que los cuadraditos, denotan el carácter ESPACIO o blanco. 


Nh 
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Para obtener la bandera italiana, cambia el número 1 que figura en la linea 4f para 
que sea un 4. 


No habrás dejado de notar que la ristra literal de la línea 44 se lista en su esplendor 
azúl-blanco-rojo. 


Lo que nos lleva a algo un poquitin más ambicioso: la bandera de los Estados Unidos 
como una sola ristra de caracteres. Puedes sacar en pantalla una aproximación al 
pendón americano, usando caracteres de control, mediante la figura 4.1 y usando 
modo gráfico. Exige tiempo y cuidado; pero al final, comprenderás los caracteres 
de control tecleables directamente ¡enormemente bien! 


Rojo 


ó EL men Blanco 


Figura 4.1 La bandera de EE.UU. impuesta directamente en el teclado como uma larga ristra de 
caracteres. 


Abajo te presentamos la cuenta golpe a golpe. Pronto verás cómo se va construyendo 
la bandera a medida que vas pulsando teclas, y serás capáz de anticipar lo que se 
necesita a continuacion. Con un poco de práctica, puedes hacer este tipo de cosas 
partiendo de improviso, sin ningún bosquejo inicial. (g3c es en modo gráfico la tecla 
3 con CAPS SHIFT). 


19 PRINT "(modo E/1) (modo E/CAPS/7) 
(modo E/2) g3c g3c g3c g3c g3c (modo E/Q) 
(22 espacios) (modo E/1) (modo E/CAPS/7) 
(modo E/2) g3c g3c g3c g3c g3c (modo E/Q) 
(22 espacios) (modo E/1) (modo E/CAPS/7) 
(modo E/2) g3c g3c g3c g3c g3c (modo E/Q) 
(22 espacios) (modo E/2) 
(g3c diez veces) (modo E/0) 
(22 espacios) (modo E/2) (g3c diez veces) 
(modo E/f) (22 espacios) (modo E/2) (g3c diez veces) 
(modo E/6) (22 espacios) (modo E/2) (modo E/CAPS/() 
(g3c diez veces) (modo E/CAPS/7) (modo E/Q)" 


¡Vaya! Ahora, haz que el papel y el borde sea negro, la tinta blanca y pulsa RUN. 
La parte de las estrellas en la bandera puede ser mejorada (piensa un poco sobre 
gráficos definidos por el usuario) pero está claro lo que pretende ser. Y todo con 
una sola ristra de caracteres... 


Para gráficos rápidos, llenos de color y en baja resolución, puedes usar esta técnica 
para convertir toda una pantalla llena de caracteres gráficos de colores en una sola 
ristra literal, que se expone casi instantáneamente. Asi puede meterse cualquier 
dibujo que puedas plantear en una retícula de 64 x 44, directamente desde el teclado, 
como una ristra de 704 caracteres. Lleva su tiempo, y exige paciencia, pero es 
merecedor de una imagen atractiva y es un uso eficaz de la memoria (en la práctica, 
para facilitar el tecleo y la edición, te sugiero 5 ó 6 ristras de 128 ú 168 caracteres 


cada una). 


"No es Lo que quíernes, es la manera 
en que lo haces". Los mismos datos, 
mostrados de diferente forma, pueden 
sen tan claros como el cristal o tan 
claros como la arcilla. Los gráficos 
y los colones añaden legibilidad. 
Peno ¿has pensado alguna vez usar 
una fórnmula para tocar una canción? 


5 Tecnicas de imagen 


El cómputo no es meramente un asunto de generar vastos tochos de estadillos 
numéricos, incluso aunque esto impresione a los visitantes burócratas. Es importante 
también, encontrar las formas adecuadas de presentar la información. En varias 
partes de este libro, yo exploro algunas de estas técnicas. Aqui, en este capitulo, 
considero cinco posibles formas de presentar series de números, producidas por un 
proceso matemático bastante interesante. El propio proceso se comenta al final, 
porque conozco un montón de gente que es menos aficionada que yo a las 
matemáticas... 


El programa te pide que elijas el tipo de imagen que requieres, a partir de un menú 
de cinco opciones: luego debes teclear un número entre Y y 1000. El listado es tan 
sencillo que te lo presento todo de una vez: 


DIM a(5) 

LET a(1)=40: LET a(2)=255: 
LET a(3)=704: LET a(4)=1000: 
LET a(5)=704 

PRINT "Elige tipo de presentacion: 
1. Numerica 

2. Grafica 

3. Policroma 

4d. Sonora 

5. Ambas” 

INPUT d 

PRINT “*Eligae un numero entre 0 yOO0OD0OD1000" 
INPUT k: CLS 

LET k=k/250: LET x=.7 

FOR t=1 TO a(d) 

LET x=kexe (1-5) 

GO SUB 1000=d 

NEXT t 

STOP 

REM numerica 

PRINT x=, 

RETURN 


2000 REM grafica 

2010 IF t=1 THEN PRINT k*250 
2020 PLOT t,0: DRAW 0,170x%*%x 
2030 FETUEN 

23000 REM policroma 

3010 PRINT PAPER INT (8%3;'"D"*; 
3020 RETURN 

4000 REM sonora 

4010 BEEP .05,20-d40*x 

4020 RETURN 

5000 REM ambas 

5010 GO SUB 3000: GU SUB 4000 
5020 RETURN 


Antes de proseguir, puede que te guste ensayar esto. Cualquier número en la gama 
0-1000 está permitido; pero los números mayores de 754 producen resultados más 
interesantes. La opción 1 expone una lista de números bastante poco significativa; 

la opción 2 produce algunas cosas llenas de picos bastante bonitas; la opción 3 dibuja 
barras y bloques coloreados por toda la pantalla; y la opción 4 interpreta tonadas 
bastante chocantes, algunas veces rítmicas y repetitivas, otras veces más complejas. 
La opción 5 combina las opciones 3 y 4. : 


. ABORDANDOLO SISTEMATICAMENTE 


Vamos a adoptar una aproximación más sistemática, eligiendo el valor del número 
a imponer, y comparando los tipos de imagen obtenidos. De hecho, adoptaremos 
cuatro valores standard, 


766 880 897 985 
que entre ellos nos aclararán los puntos cruciales. 


Pasa el programa con opción 1, y tecleando 766. Sacará una tabla de números en 

dos columnas. Leyendo sucesivamente los renglones, nos dan los valores sucesivos 

del número calculado por la línea 364 del programa. No es fácil de ver nada que 

tenga sentido (que es siempre el problema con las salidas numéricas tabuladas); 

pero el ojo entrenado notará que en cada columna los números se hacen más y más 
similares a medida que vas hacia abajo en la pantalla. La columna de la izquierda 

está más cerca de (.58, y la de la derecha de (f.75. Asi que los valores, alternativamente 
saltan de un valor (o aproximado) al otro. La secuencia de valores tiende hacia algo 

que es periódico, es decir, se repiten los mismos valores una y otra vez; y el periodo 

es 2. 


Repite la pasada con opción 1, pero tecleando el siguiente número de prueba, 886. 
Ahora el resultado es diferente: los números no acaban de asentarse en absoluto. 
Sin embargo, en cada columna están intentando alternar entre dos valores: $.82 

y 0.87 en la de la izquierda; 0.51 y 0.37 en la de la derecha. Toda la secuencia se 
repite cada cuatro pasadas, asi que es una secuencia periódica con periodo +4. 


Ahora ensaya la opción 1 con el 897. Hmmm, bien... ¿hay o no una cierta pauta? 
En la izquierda hay unos cuantos (.89; y varios cercanos al /.33 en la derecha; pero 
no está muy claro. 


No te preocupes; la opción | con el 985 es todavia peor. De hecho, parece un total 
batiburrillo. 
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espigas suben y bajan. 


Figura 5.1 


Para el 397 hay rastros definidos de periodicidad, pero es un poco irregular (Figura 
5.3). 


Figura 5.3 Imagen gráfica: k = 897. Permanecen rastros de periodicidad. 


Para el 985 los picos son bastante más aleatorios (figura 5.4). 


Figura 5.4 Imagen gráfica: k = 985. ¡El caos! 


La opción policroma (opción 3) resalta las periodicidades de manera mucho más 
impresionante -en parte porque los periodos 2, 4, etc. son divisores del numero de 
caracteres en un renglon (32), lo que es una coincidencia afortunada. 


Para el 766 verás barras verdes y cyanos (excepto muy al principio). Para el 880 
(figura 5.5) las barras repiten cuadruplemente el patron rojo-amarillo-verde-blanco. 
Para el 897 (figura 5.6) el.efecto de las barras está definido claramente, con colores 
escogidos entre amarillo-magenta-blanco-verde-rojo; pero hay aquí y allá trozos 
en que un cuadrado saca un color diferente a la barra; y para el 985 (figura 5.7) lo 
que se obtiene es meramente cuadrados con apariencia aleatoria. 


Figura 5.5 Polícroma (en el libro en blanco y negro). Las barras muestran periodicidad cuando 
k = 880. 


Figura 5.6 Polícroma (en el libro en blanco y negro): periodicidad parcial 
con interrupciones aquí y allá cuando k = 897. 


Figura 5.7 Polícroma (en blanco y megro en el libro): k = 985, el trazado aleatorio de los colores 
muestra el caos. 


Uno normalmente, no piensa en presentar información mediante tonadas; pero aqui 
produce un resultado intrigante: el oído detecta la periodicidad como ritmos. Pasando 
el programa con la opción 4, el número 766, produce un sonido monótono du/da du/da 
(como una ambulancia pero con la sirena desafinada). Con el 88f el ritmo es mucho 
más compulsivo, repitiéndose una y otra vez un motivo de cuatro notas (lo puedes 
usar como acompañamiento a una canción pop) Con el 897 se obtiene una mixtura 
placentera de ritmo e irregularidad: ciertos motivos aparecen una y otra vez, pero 

a intervalos irregularmente espaciados. Con el 985, el sonido es como el producido 
por una orquesta al ensayar antes de la función. 


La opción 5 nos permite ver los colores y escuchar el sonido conjuntamente; tienden 
a reforzarse uno al otro. 


Ensaya otros valores para el número. Te encontrarás que con los números inferiores 
a 750, todo conduce a un valor único (muy soso) y que el funcionamiento se hace 
más y más peculiar cuanto mayor es el número. 


MODELOS REPRODUCTIVOS 


Muy fascinante, sin ninguna duda. ¿Pero de qué trata todo esto? 


El programa se basa en una fórmula usada en los modelos teóricos de desarrollo de 
poblaciones animales. Imagínate un lago lo suficientemente grande como para admitir 
como máximo 100 hipopótamos. Dependiendo del ritmo reproductivo de cada generación, 
¿como varia el numero de hipopotamos”? Con este programa particular, el número 

x que produce la salida numerica, grafica o sonora, viene dado por 


número de hipopótamos en la presente generación 
número máximo posible (= 140) 


y la tasa de reproducción es k/250, siendo k el número que tú metes. Si esta tasa 
es menor que l (k < 258) el número de hipos tiende a cero: la población de hipos 
se muere lentamente por falta de actividad reproductora. 


Si está entre 1 y 3 (k entre 250 y 750) el número tiende a un valor simple estacionario. 
Por encima de esas tasas, comienza a oscilar mas y mas abruptamente. 


Por ejemplo, la secuencia con periodo 2 para k = 766, corresponde a tener 58 hipopótamos 
un año, 75 al siguiente, luego 58 de nuevo, luego 75 otra vez, y así sucesivamente. 

Lo que sucede es que la población de 58 es muy inferior a la que el lago puede 

sostener, asi que el número de hipos aumenta; pero cuando lo hace se pasa del término 
medio ideal para dar 78, que es demasiado. Asi que al año siguiente vuelve a caer 
-volviéndose a pasar por el lado contrario- hasta 58. Y el ciclo se repite. 


El fenómeno aleatorio que se produce con k = 985 (y parcialmente con k = 897) es 
muy interesante matemáticamente, porque sabemos que no es realmente aleatorio 

en absoluto. Está producido por una fórmula muy simple: la línea 364 del programa. 
Pero ciertamente parece aleatorio. Se denomina caos determinístico, y es una espada 
de dos filos. Por un lado, muestra que sucesos aparentemente aleatorios pueden tener 
una estructura simple en el fondo; por el otro, fomenta las dudas sobre la capacidad 
de teorías aparentemente bien cimentadas hagan predicciones útiles. Este no es el 
lugar para hablarte sobre el caos. Pero si quieres saber mas, te puedo recomendar 

el libro Conceptos de Matemática Moderna por lan Stewart (no es que hagamos 
propaganda de la editorial Shiva, porque pertenece a la editorial Penguin Books). 


La cuestión no es hungarn en La memonxa 
para FISGAR el valor contenido en una 
detenminada celdilla, o para HINCAR un 
detenminado valor en una celdilla. La 
cuestión es dónde minan [PEEK) y qué 
meter (POKE) ! 


6 Variables sistemales 


La memoria del Spectrum, y no tengo ninguna duda de que ya lo sabes, viene en 

dos clases, mal llamadas: ROM (Real Only Memory) y RAM (Random Access Memory). 
Solamente en la RAM puedes cambiar el contenido de un lugar de la memoria 

(dirección). La mayoría de los sistemas operativos de la máquina, residen permanentemente 
en la ROM; pero hay una cierta cantidad que queda guardada en la memoria alterable 
(RAM) de manera que pueda cambiarse cuando sea necesario. Es el área de variables 
sistemales, y ocupa desde la dirección 23552 a la 23733. El Manual da una lista 
"comprensiva, pero no siempre comprensible" (comprensiva porque abarca todo aunque 

no sea fácil de comprender). 


La mayoría de estas variables no son especialmente útiles, en cuanto a lo que se 

refiere a incorporarlas en los programas. Aunque tienen nombres dados en el Manual, 
solamente son para propósitos de referencia, pero no son nombres accesibles directamente 
desde BASIC. 


Para "fisgar'" el valor de una variable sistemal, usas PEEK. Para "hincar" el valor 
que tú quieres en ella, usas POKE (véase Programación Fácil). Para más detalles, 
continúa leyendo. 


La mira de este capitulo es describir aquellas variables del sistema que probablemente 
encuentres provechosas y de darte unas cuantas ideas de cómo usarlas. La cosa 
importante radica en que las variables del sistema están ahí, y eres libre de acomodarlas 
a tu voluntad cuando surge la ocasión. 


RESPUESTA DEL TECLADO 


Tabla 6.1 


Nemónimo Valor standard 


REPDEL 
REPPER 
PIP 


Estas controlan el tiempo que el ordenador espera para efectuar la auto-repetición 

de una pulsación; la velocidad con que lo repite; y la longitud del pitido que se produce 
al pulsar una tecla. Para un teclado que responda más rápido con pitidos audible, 

mete (en modo comando o desde el programa): 


POKE 23561, 10 
POKE 23562, 1 
POKE 23609, 54 


Puedes variar los números para que sean justo a tu gusto: las gamas sensibles parecen 


ser 10-20; 1-3; 40-100. 


Para evitar tener que teclearlas cada vez que enciendes, puedes guardarlas en una 

cinta, y cargarlas nada más enchufar. Desde luego, se tarda más tiempo que tecleándolas 
-pero si también incluyes en la cinta tus utensilios favoritos (renumeración de líneas, 
véase capitulo 12; cambio de atributos, véase capitulo 7; algunos gráficos habituales 
definidos por el usuario) puede constituir un módulo muy útil para tenerlo asentado 

en el área BASIC. 


ORGANIZACION DE LA MEMORIA 


La memoria del ordenador está dividida en parcelas con secciones de programa que 
efectúan diferentes labores. Los linderos o límites entre estas parcelas pueden variar 
a lo largo de la sesión: las direcciones de estas cotas o limites se conservan como 
variables del sistema y te las doy en la tabla 6.2. 


Tabla 6.2 


A 
| Valor después de NEW 


Nemónimo Dirección (máquina 16K) 


(16384: comienzo de fichero de grafismos) 
(22528: comienzo de fichero de atributos) 
(23296: comienzo de silo de impresora) 
(23552: área de variables sistemales) 
(23734: utilizado para ductora de discos) 
CHANS 23631-2 

PROG 23635-6 

VARS 23627-8 

E-LINE 23641-2 

WORKSP 23649-50 

STKBOT 23651-2 

STKEND 23653-4 

RAMTOP 23730-1 

UDG 23675-6 

P-RAMT 23732-3 


Todas estas son variables de 2 octetos. Esto significa que por ejemplo, para encontrar 
donde comienza el programa, debes usar 


PRINT PEEK 23635 + 256 * PEEK 23636 


ya que la dirección de comienzo del programa está en la variable PROG cuya sede 
es 23635 y 23636. En general, será (primer octeto) + 256 * (segundo octeto) 


A la inversa, para cambiar PROG a digamos 13244 (y no te recomiendo ésto, es 
meramente para dar una idea general) tienes que desarrollar 13244 en la forma 
(octeto) + 256 * (octeto). De hecho, el segundo octeto (el senior) viene dado por 


INT (13244/256), que arroja el valor 51 
mientras que el primer octeto (el junior) mediante 
13244 - 256 * INT (13244/256), que nos da 188. 


Así que el comando sería 
POKE 23635, 188: POKE 23636, 51 


Igualmente, para cambiar RAMTOP al valor n (veremos más adelante las razones 
para querer hacerlo) usarás 


POKE 23730, n - 256 * INT (n/256): POKE 23731, INT (n/256) 


Solamente pueden aprovecharse RAMTOP y UDG para hincarles un valor; pero todo 
el conjunto de variables sistemales puede ser fisgado para determinar el sitio de 
la memoria en que cada sección comienza. 


CHANS indica el comienzo del sistema de comunicaciones con la ductora de microdiscos, 
y no la encontrarás de mucha utilización. PROG es el comienzo del área donde 

está alojado el _Programa en BASIC: necesitas saber su valor para (e.g.) la rutina 

de renumeración de líneas del capitulo 12. VARS señala el lugar donde se guardan 

las variables: si quieres una rutina de renumeración de lineas perfecta, puede que 
encueniires uso de esta variable. O, si eres bastante persistente, puedes escribir 

una rutina que suprima de la memoria variables especificas (lo que sería como una 
instrucción de limpiar memoria pero local); aunque en estos casos sería mejor el 

código máquina. Desde E-LINE hasta STKEND son variables de más interés para 

el Spectrum que para su usuario. 


Sin embargo, es importante el recinto de memoria entre STKEND y RAMTOP: ya 
que es la cantidad de memoria libre y disponible. (Realmente, la máquina coloca 
ahí dos "perchas" para colgar direcciones (véase Código Máquina y Mejor BASIC). 

la una para uso por el procesador Z380, la otra para las direcciones de vuelta cuando 
el programa va a ejecutar una subrutina; pero ambas son habitualmente bastante 
pequeñas). Asi, como estimación, con precisión de unas pocas docenas de octetos, 

la memoria que está de repuesto, nos viene dada por 


PRINT PEEK 23730 + 256 * PEEK 23731 - PEEK 23653 - 256 * PEEK 23654 


y puedes incorporar este comando dentro de un programa. De hecho, 256 * (PEEK 
23731 - PEEK 23654) es más simple y lo suficientemente aproximada. 


RAMTOP tiene normalmente su sede al comienzo de los gráficos definidos por el 
usuario; pero se la puede bajar para conseguir espacio y meter aquellas cosas que 

no quieres que el sistema BASIC te machaque. Por ejemplo, rutinas en Código Máquina 
(véase Código Máquina y Mejor BASIC) o caracteres extra definidos por el usuario 

(los veremos más adelante). 


Ñ 


37 


Lo que se mete por encima de RAMTOP no se ve afectado al borrar el programa 
mediante NEW. (Tampoco se transfiere a la cinta al guardar el programa; pero puedes 
usar la opción de guardar octetos para conseguirlo, tal como explica el Manual). 


UDG señala dónde comienza el área de gráficos definidos por el usuario. La razón 
principal para querer hincar otro valor aqui, es que andes corto de memoria 

y no quieres todos los 23 caracteres definibles. En ese caso, incrementas este valor 
para liberar el espacio extia que buscas. 


RELOJ INCORPORADO 


La variable del sistema FRAMES cuenta el número de "cuadros" de televisión que 

se han presentado desde la última vez que se encendió el ordenador. Recuerda que 

el barrido en la televisión es de 50 cuadros por segundo, de manera que efectivamente, 
tenemos incorporado un reloj. El Manual, trata este tema bastante extensamente, 

asi que no vamos a repetir aquí la descripción; pero el punto primordial a observar 

es que esta variable tiene tres octetos, por lo que su valor numérico viene dado 

por 


PEEK 23672 + 256 * PEEK 23673 + 65536 * PEEK 23674 


y el número de segundos transcurridos es lo que salga arriba, dividido por 50. Nota 
que la dirección 23674 sólo cambia cada 65536/50 - 1310.72 segundos, o sea, cada 
veinte minutos. Así que para la mayoría de las aplicaciones (como en la siguiente) 
puedes prescindir del tercer octeto y usar únicamente los dos primeros. 


Y ahora, un programa para comprobar tu tiempo de reacción: 


PRINT "Frueba de reflejos” 

FANDUMIZE 

PAUSE (100+=00=FND) 

LET t0=PEEK 2367 2+256*FEEE 23673 

PRINT AT 10,15,"*"!YA!" 

IF INKEY*$="" THEN 60 TO so 

LET t1=FEEK 236 72+256*PEEF 

LET t=t1-t0 

IF t<0 THEN  LET t=t+45536 

FRINT AT 15,2;*Tu tiempo de reaccion es deo';t/50;'osegundos*" 


La línea 90 se preocupa del caso (improbable pero posible) en que el tercer octeto 
de FRAMES se haya incrementado en 1 durante el periodo de reacción. 


Para usar el programa, mételo y pásalo, y en cuanto aparezca "¡YA!" en la pantalla, 
pulsa cualquier tecla. (Si eres fullero y mantienes una tecla continuamente pulsada, 


puedes luego aprovechar para modificar el programa e impedir eso). 
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EL REPERTORIO DE CARACTERES 


La variable sistemal CHARS contiene la dirección donde comienza el repertorio de 
caracteres: una tabla de fs y ls que define la forma de los simbolos visibles. Diciéndolo 
más exactamente, contiene esa dirección citada menos 256: y la tabla comienza 

con el símbolo correspondiente al código 32, que es BLANCO o ESPACIO. 


Normalmente, CHARS adopta el valor 15368. Las instrucciones para exponer el 

simbolo con código n están contenidas en los octetos 15368 + 8 * na 15360 +8 *n + 7, 
y da las ocho filas del cuadrado 8 x 8 que ocupa ese simbolo. La forma es en binario, 

de la misma manera que para los caracteres definidos por el usuario (Fácil Programación 
página 49). 


Puedes fisgar en estas direcciones para ver cómo la forma de un simbolo determinado 
esta grabada en la ROM, y como se construye en la pantalla; usando este programa: 


INPUT "*"Grafismo?*;c*+ 

IF c+$=*"*" OR LEN c$>1 OR CODE cé$<32 THEN 60 TO 10 
LET n=CO0E c+ 

FOR i=0 TO 7? 

LET x=PEEK (15360+3:n+1) 

LET 

FOR 

LET xs=INT (x/2): LET xj=x-2x*xs 

LET p$=C("*" AND xj)+(*.* ANO NOT xj+pé* 
LET x=xs 

NEXT t 

PRINT p* 

NEXT i 


Este programa, recupera los números binarios de la ROM y convierte el f en un 
punto y el 1 en un asterisco. Asi que la letra "a" da: 


Dirección en ROM Contenido en binario Efecto gráfico 


SIS 
SISSI 


¿Distingues el tipo de "a' entre las estrellitas? 


Los puntos y estrellitas son por claridad. Para obtener el efecto verdadero, cambia 
"noe a UN a TEL y men a JN Y 


Puedes usar esta técnica en los programas para producir caracteres visivos ocho 
veces su tamaño habitual. Sustituyendo cada cuadrito por un cuadrito 2 x 2, puedes 
llegar a 16 veces el tamaño original; un poquito apelmazado, pero dramático. 
Manipulando los ocho números binarios en bloques de 2 x 2, puedes traer a escena 
los caracteres gráficos y producir letras 4 veces el tamaño habitual (véase en el 
reverso) e inventando gráficos adecuados definidos por el usuario, puedes producir 
simbolos al doble del tamaño habitual. 


Más chocante es el efecto de alterar el valor de la variable CHARS. 


Mete un programa que tenga aproximadamente una página de listado para un efecto 
mejor. Teclea directamente el comando : 


POKE 23606, 2 


Hmmm... es un poquito raro: los caracteres se han desplazado un par de lineas y 
parece que se han roto un poquito. Ahora ensaya 


POKE 23696, 8 


(e ignora los mensajes que aparecen en la pantalla, que también son extraños). Ahora, 
has vuelto a obtener letras bonitas, pero el listado parece que está cifrado de alguna 
manera... De hecho, cada letra ha sido cambiada por la siguiente en la tabla de 
caracteres; porque hemos atontado al ordenador y está mirando 8 octetos por delante 
de donde debiera estar haciéndolo. 


Para verdadera diversión, teclea 
POKE 23607, 50 


Un uso juicioso de este comando en un programa, haría que los listados fueran 

incomprensibles. Sin embargo, un poco de trabajo detectivesco por parte del propenso 
a » : 3 : 

a pirata volveria a editarlo de nuevo... La vida es triste... 


Para volver a sacar una imagen comprensible, teclea 
POKE 23696, V: POKE 23697, 60 


pero lleva cuidado, ya que no podrás ver reflejado en pantalla lo que estás tecleando 
hasta que todo termine. Quitando el enchufe un momento, restaurará las condiciones 
iniciales si todo lo demás falla. 


Todo esto es muy fascinante, ¿pero adónde vamos? El punto primordial es que puedes 
dotar al ordenador de repertorios de caracteres completamente nuevos -tantos como 
sitios tengas en la memoria- en lugar de solamente los 23 caracteres definidos por 

el usuario. La forma de hacerlo se explica en el capitulo 15, porque haria demasiado 
largo este capitulo en este momento; la idea es construir el nuevo repertorio de 
caracteres en otra parte de la memoria que el sistema BASIC no use, bajando el 
valor de RAMTOP y fijando los códigos para los rasgos de cada carácter. A continuación 
cambiamos el valor de la variable CHARS y todos nuestros nuevos caracteres se 
hacen accesibles. Si volvemos a hincar el valor antiguo, el viejo repertorio aparecerá. 
Así que con dos diminutas subrutinas que hinquen uno u otro valor, más 2048 octetos 
de datos, y ya posees 256 nuevos caracteres -simbolos gráficos, matemáticos, o 

lo que sea. Desde luego que no tienes que pasar por todo el trago: se pueden estipular 
menos de 256 caracteres usando el mismo método, si lo prefieres. 
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Usando los caracteres de dibujar (la fila superior de teclas) puedes dibujar simbolos 

a Cuatro veces su tamaño normal, que es suficiente para llamar la atención. Este 

es un programa que acepta cualquier ristra de grafismos con longitud 8 o menor, 

y la amplia cuatro veces. (El limite en la longitud es simplemente para que el resultado 
se adecue a la pantalla: puedes modificarlo facilmente si quieres escribir varios 
renglones. Está basado en la manera inteligente en que la gente de Sinclair (por 

esta vez!) ha codificado los símbolos para dibujar gráficos. Para sacar el código 
correspondiente a un simbolo, suma adecuadamente los números de esta cuadrícula, que 


corresponden a cuadritos negros, y luego le añades 123. Por ejemplo MH tiene 
como código 2 + 4 + 128 = 134. Puedes comprobarlo en las páginas del Manual. 


DIM q(8,8) 

LET ¡0=PEEK 23606+256xPEEK 23607 
INPUT c+ 

LET s=LEN c+: IF s>8 THEN LET s=3 
FOR r=1 TO s 

LET ¡i=10+8*C00DE c*(r) 

FOR a=0 TO 7? 

LET m=FEEK (ita) 

FOR b=0 TO 7 

LET qí(a+1,S-b)=m-2*INT (m/2) 

LET m=INT (m/2) 

NEXT b 

NEXT a 

FOR u=1 TO 4 

LET t$="" 

FOR u=1 TO d 

LET k=q(2eU-1, 284)+2e*q(2eu-1,2-1)+d8q (24, 231045390204, 23801) 
LET t$=t$+CHRE (1230+k) 

NEXT ts 

FRINT AT 1, der-d;t+ 

NEXT u 

NEXT r 


La figura 6.1 muestra el resultado de teclear "Testing?". 


TESTiNY9"7 


Figura 6.1 Probando los caracteres a tamaño cuádruple. 


SALTOS IMPOSIBLES 


El Spectrum te permite ahorrar montones de números de línea (una de las mayores 
objeciones al BASIC es por qué usa números de linea) escribiendo varias instrucciones 


en una sola linea: 
10 LET a=1:LET b=4%:FERINT a+b:60 TO 10 


(por ejemplo). Está muy bien y es bueno, pero solamente puede saltar mediante 
la sentencia GO TO o GO SUB a la primera instrucción de tal línea. 


A menos que alteres las variables sistemales NEWPPC y NSPCC, en las direcciones 
23618-9 (2 octetos para NEWPPC) y en 23620 (1 octeto para NSPCC). Así se fuerza 
un salto a la línea señalada en NEWPPC, y al número de instrucción dentro de la 
línea, señalado en NSPPC. 


Mejor que elaborar la teoría, aqui hay un programa que aclara todo. 
613,10: FOKE : 


supone que no vendria aqui" 
10 FEINT *1*: FERINT *2*: FRINT "=*" 


Ejecuta este programa, e impón | como valor de a; ensaya otra vez cona = 2 ya -= 3. 


A la línea 7 no se llega en ningún momento. El primer comando de la linea 5, fuerza 
un salto a la línea 10. Si a vale 1, el segundo comando de la línea 5 hace que el 
salto sea a la primera instrucción de la línea 1f; si es un 2 hace que sea a la segunda 
instrucción; y si es 3 a la tercera. 
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En general, se fuerza un salto mediante el comando 
POKE 23618, nj: POKE 23619, ns: POKE 2362f, a 


que tiene el mismo efecto que la instrucción 


GO TO nj + 256 * ns, a-ésima instrucción 


(si es que este comando fuera posible en BASIC, que no lo es). 


Una incomodidad: las instrucciones condicionales IF/THEN. La parte THEN es tratada 
por el ordenador como si fuera una instrucción separada en la línea, que ha de incluirse 
además en la cuenta de instrucciones de esa linea. Y si saltas a la parte THEN, 

usando NSPPC, obtienes un mensaje de error indicándote "Sin sentido en BASIC". 

Para ver lo que sucede, ensaya con esto: 


INPUT x 
INFUT a 
POKE 23612,10: FOKE 23620,a 
PRINT 'Se supone que no vendria aqui" 
10 IF x=0 THEN PRINT *"1*: FRINT *2*: FRINT '3* 


El ordenador considera que la línea 1f tiene cuatro comandos: 
(IF x = 9) (THEN PRINT "1') (PRINT "2") (PRINT "3") 


Así que ensaya con 1, 2, 3, 4 como valores de a. Poniendo x = ( hace que la condición 
sea cierta; x = 1 que sea falsa. El resultado es algo como esto: 


lx | a | Expuesto en pantalla 


1 2 3 (en columnas) 

Sin sentido en Basic 

23 

3 

(blanco -condición no cierta) 
Sin sentido en Basic 

23 

3 


EN Eu — 


Observa que incluso con x = l, los saltos al tercero o cuarto comando de la línea, 
produce la exposición en pantalla: la clausula IF/THEN queda ignorada (como si las 
instrucciones estuvieran en lineas separadas, y hubieras usado el salto adecuado). 


EL FONDO DE LA PANTALLA 


Los atributos para la parte inferior de la pantalla (donde salen los mensajes de error) 
son fijados por la máquina; y en ocasiones, puedes terminar con un bloque de color 
en el fondo que no concuerda con el del borde, si has cambiado el del borde durante 
el paso del programa. La variable sistemal BORDCR con sede en 23624, contiene 

el valor 8 * c, siendo c el color. 


A 
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Punzando en esa dirección otro valor, no produce un efecto inmediato; pero si no 
te importa poner a Q tus variables, puedes restaurar el color mediante 


POKE 23624, 8 * c: CLEAR 


Puede que encuentres uso para esto. Mira también el capitulo 7 sobre ficheros de 
grafismos y atributos. 


Siguiendo todavía con el asunto de la sección de mensajes en la pantalla, hay otra 
manera de accesarlo usando un comando diseñado para la microductora de disco. 
Ensaya este programa (el signo "4f" -diésis*- está en la tecla 3, simultáneamente 
con la tecla de cambio de simbolos). 


10 PRINT +0;*Hola tronco" 
¿0 60 TO 20 


(La última de estas instrucciones la he puesto simplemente para impedir que aparezca 
el mensaje "OK" y arrase con todo). Usando PRINT ¿f Y puedes exponer algo dentro 

de la sección de mensajes. Hay algunos caprichos: se tiende a perder la línea 21 

de la sección principal, o que se desrrolle la imagen cuando no lo esperas. El mensaje 
sacado con PRINT /f ( puede tener más de 64 caracteres: se amplia la sección inferior 
y se despliega hacia arriba. Usando comandos de color, o caracteres de control, 
puedes conseguir además color con esta acción. 


Si tienes acoplada una impresora, intenta usar en lugar de esto el comando PRINT 
1 3. Esta vez, ves que el mensaje se envía a la impresora -lo mismo que si hubiera 
sido LPRINT. 


PRINT /f 1 también produce mensajes en la parte inferior de la pantalla, y PRINT 4 2 
los produce en el sitio habitual -como un PRINT normal-. Los otros comandos PRINT 
1+ n, con n > 3, son los que conciernen al sistema de minidiscos. 


Es provechoso cuando quieres exponer una serie de mensajes (por ejemplo) saber 
usar las opciones de pantalla o de impresora. Usa 


PRINT /£ nm; "Un mensaje cualquiera" 


Y luego haciendo n = 2 lo sacas por pantalla, y con n = 3 por impresora. Lo cual 
es mucho mejor que la alternativa 


IF n = 2 THEN PRINT "Un mensaje cualquiera" 
IF n = 3 THEN LPRINT "Un mensaje cualquiera" 


DESROLLANDO 


Por lo que a mi respecta, el rasgo más incómodo del Spectrum es la forma en que 
pregunta si desrrolla o no. Tienes que pulsar constantemente el teclado para hacer 
que desrolle, o que deje de desrollar; y el mio termina habitualmente desrollando 
cuando no quiero que lo haga y parando cuando quiero que desrolle. El sistema es 
claramente perverso, y me hubiese gustado que Sinclair hubiera trabajado un poquito 
más sobre él. 


Si deseas forzar desde un programa el desrolle automático, puedes usar la variable 
sistemal SCR-CT, con sede en 23692. Contiene el número de líneas que quedan antes 
de que se muestre la solicitud de desrolle. 


* “diésis" es delimitador o separador en general. Al "/" se le llama vulgarmente "almohadilla". 
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Por lo tanto, el comando 
POKE 23692, 2: PRINT AT 21, 31: PRINT 


provoca que se desplace una línea hacia arriba, sin solicitar confirmación por el 
teclado. (Ya mencione esto en Programacion Facil, pero merece mencionarse de 
nuevo para que todo sea completo). 


COORDENADAS DE PUNTEO 


También las he mencionado: aplica el mismo razonamiento anterior. La variable 
sistemal COORDS contiene en sus 2 octetos, las coordenadas del último pixel que 
haya sido PUNTEADO. Las direcciones son: 


23677 coordenada de la fila 
23678 coordenada de la columna 
Por lo tanto, si acabas de usar 
PLOT 47, 124 
en la dirección 23677 habrá 47, y en la 23678 habrá 124. Comprueba esto: 


10 INFUT fila,columna 
20 PLOT fila,columna 
30 PRINT PFEEK 23677?,PEEK 23678 


Puedes usar COORDS, obviamente, para determinar dónde estás en un momento 
dado antes de TRAZAR (que te lleva desde la posición corriente,los desplazamientos 
especificados en el comando DRAW; como bien sabes). Si quieres tirar una línea 
hasta un determinado punto a, b -y has olvidado, o no has guardado en algún sitio, 
la posición corriente- puedes usar 


DRAW a - PEEK 23677, b - PEEK 23678 


El uso primordial de esta instrucción sería al trazar curvas, pero también puede 
que la encuentres útil si usas el teclado para puntear a discreción los pixeles (como 
en el capitulo 1 el programa Dibujero) y deseas saber donde te encuentras. 


¿Alguna vez conseguiste un diagrama 
nealmente bonito en la pantalla, pero 
con una combinación de colones horrorosa? 
y la única manera de cambiartó ena 
modi f4cando el programa, Lo que borra 
la imagen, por Lo que tenías que comenzar 
de nuevo... 

Hay una manera mejor. 


7 Fichero de atributos y grafismos 


Si fuiste propietario de un ZX81, sabrás que procesa a dos velocidades, llamadas 
sensatamente rapida (FAST) y lenta (SLOW) y que la pantalla se queda en blanco 
cuando está operando en modo rápido. Además ya eres consciente (ver Código Máquina 
y Mejor BASIC) que la imagen de la pantalla es fiel reflejo del contenido de una 

zona de memoria denominada "fichero de grafismos", que varia dinámicamente y 

cuya dirección de comienzo es el valor de la variable sistemal denominada D-FILE. 

(Si no compraste o usaste un ZX8l, saltate este párrafo. Lo siento, es demasiado 
tarde). 


El Spectrum no es asi: es puro, y sin variable D-FILE. 


Los circuitos para la imagen en pantalla, funcionan todo el tiempo, asi que no hay 
velocidad lenta (y por tanto, no se necesitan comandos de velocidad). La información 
correspondiente a la imagen de pantalla, está contenida en dos recintos de memoria, 
el fichero de atributos y el fichero de grafismos (vulgarmente lo llamo pizarra). 
Residen en posiciones prefijadas de la memoria, y funcionan en maneras diferentes. 


ATRIBUTOS 


El fichero de atributos es más fácil de comprender, y, a no ser que seas un entusiasta 
del Codigo Maquina, mucho mas util en todos los sentidos. 


La imagen de la pantalla consta de 22 renglones (24 incluyendo el trozo inferior 

para mensajes) de 32 columnas cada uno, lo que hace un total de 22 * 32 =- 704 

(o 24 * 32 - 768) posiciones. El comando PRINT AT r, c coloca el cursor en la columna 
c-ésima del renglon r-ésimo (contando a partir de Y y hacia arriba). El carácter 

que se expone en esa posición, está guardado en el fichero de grafismos; pero sus 
atributos (color, parpadeo, etc.) se guardan en el fichero de atributos. El orden en 

que los atributos están guardados es directo: se comienza por la parte superior izquierda 
y se van leyendo los renglones de izquierda a derecha, como si fuera un libro cualquiera. 
El fichero de atributos comienza en la dirección 22528; asi que el atributo para 

la posición relativa al renglón r, columna c está guardado en la dirección: 


22528 + 32 *r+c 
Puedes cambiar el valor en esta dirección, y por tanto los atributos, sin tener que 


limpiar la pantalla. Es útil, porque los comandos de papel y tinta solamente afectan 
a lo que se exponga despues de haberlos dado. 


Cada atributo ocupa un solo octeto, y sus ocho bits se dividen asi: 


PARPADEO BRILLO tres en color tres Sd color 
si/no si/no bits p papel bits p tinta 


e 


en que como es habitual "si" es 1, y "no" es Q. 
En otras palabras, si el PARPADEO tiene valor f, el BRILLO valor b, el PAPEL 
valor p, y la TINTA valor i, el valor correspondiente a esos atributos es: 

128* 1 +64 *b+8*p+i 
Además, puedes determinar los atributos de la posición correspondiente al renglón 
r, columna c, usando el comando 

LET att = ATTR (r, c) 
y obtenido este valor, puedes sacar la lista de valores f, b, p, i usando: 

LET f = INT (att/128) 

LET b = INT (att/64) - 2 * f 

LET p = INT (att/8) - 16 *f-8*b 

LET ¡ = att - 8 * INT (att/8) 
El siguiente programa convierte la imagen en pantalla para que cada "picto'" tenga 
el mismo atributo (elegido). Por ejemplo, si laboriosamente has construido un mapa-mundi 
con tinta negra sobre papel blanco y ahora quieres tinta roja sobre papel amarillo, 


puedes hacer el cambio sin perder el mapa ni comenzar de nuevo. Usa comandos 
directos, asi que teclea: 


LET f = (0: LET b = 0: LET p = 6: LETi= 2 
LET att = 128*f +64 *b+8 *p + i: FORt=0 
TO 7/3: POKE 22528 + t, att: NEXT t 
Mejor todavia, es tenerlo previamente en memoria, como parte de un programa utensilio 


general: y luego puedes imponer f, b, p, 1. Desde luego, también puedes deducir 
de cabeza que en este caso att - 8 * 6 + 2 = 5f; por lo que el comando podia ser: 


FOR t = Y TO 703: POKE 22528 + t, 50: NEXT t 

y ya has conseguido el resultado apetecido. 

Si cambias el bucle a 
FOR t = Y TO 767 etc. 

también cambiarás además la parte inferior de la pantalla; y 
FOR t = 704 TO 767 


cambia justamente ese trozo. La vez que lo necesitas es cuando has cargado una 
pintura (LOAD "Mona Lisa" SCREENS) y termina con el color equivocado en la parte 
inferior de la pantalla, debido a que ha habido cambios en el borde desde el momento 
que guardaste la pintura en cinta. Con esto no ocurre como con BORDCR, capitulo 6, 
que tienes que poner a cero las variables. No necesitarás esto muy a menudo, pero 
puede ser simplemente útil. 


Ñh 
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Para cambios rápidos de atributos, esta rutina es demasiado lenta. El remedio es 
pasar a Código Máquina, véase Código Máquina del Spectrum por lan Stewart y 
Robin Jones, Shiva, capitulo 14. 


IMAGEN 


Es mucho mas complicado, porque cada carácter en la imagen se almacena como 
una lista de 8 octetos (sus líneas en un picto de 8 x 8 pixeles; véase capitulo 15). 
Y no se almacenan en el orden obvio y natural. 


Si alguna vez has cargado una imagen usando SCREENS, habrás observado el orden 
peculiar y curioso en que el ordenador "pinta' la imagen. Lo hace exactamente en 
el orden en que los octetos estan almacenados en el fichero de grafismos. 


Para ver esto claramente, pasa este pequeño programa: 


19 INPUT fila, columna 
20 PLOT fila, columna 
30 PRINT PEEK 23677, PEEK 23678 


Luego, lo guardas: SAVE "blanco" SCREENS. Finalmente, CLS y LOAD "blanco" 
SCREENS, y vigila lo que sucede. (Si te olvidas de limpiar pantalla, no disfrutarás 
mucho...) 


Es más fácil describir el proceso en función de las coordenadas usadas para los gráficos 
de alta resolución, una retícula de 256 x 176. Numerando los renglones desde 175 en la 
parte de arriba hasta Y en la parte de abajo, y las columnas desde f a la izquierda 
hasta 255 a la derecha. 


El fichero de grafismos comienza en la dirección 16384. 


Los primeros 32 octetos contienen los valores para la línea 175. Cada octeto gobierna 
un segmento de 3 columnas en esa linea. El primer octeto trata con las columnas 
0-7, el siguiente con las 8-15, y asi sucesivamente. Si limpias pantalla y luego tecleas 


POKE 16384, BIN PIPIPIPI 
o su equivalente decimal 
POKE 16334, 85 


verás un trazo de cuatro motas 


en la parte superior izquierda. Cambia a POKE 16385, 85 y sucesivos, y verás cómo 
se desplaza el trazo de motas. Las motas, desde luego, son el número binario P1P10101 
convertido a gráficos: 1 siendo "pinta un pixel" y Y "borra un pixel" de la retícula 

de alta resolución. 


Cada linea horizontal de esta imagen, está reflejada en el fichero de grafismos 
como una serie consecutiva y ordenada de 32 octetos. 


Desafortunadamente, las líneas por si mismas no siguen el orden numérico, como 
ya hemos visto. 


¡NA 


Primeramente, van estas lineas: 
175 167 159 151 143 135 127 119 


(consideralas como la linea superior de las primeras ocho filas de caracteres). Luego 
el ordenador pasa a las segundas lineas: 


174 166 158 150 142 134 126 113 
Luego 


173 165 157 149 141 133 125 117 


y asi hasta que llega a la línea 112. En ese momento se ha tratado con el tercio 
superior de la pantalla (renglones f-7 en baja resolución). 


Luego, y de forma similar, se trata con el segundo tercio; y finalmente con el tercio 
del fondo, incluyendo el trozo de pantalla reservado a los mensajes. 


Mayormente, te he descrito esto para satisfacer tu curiosidad. Solamente lo necesitas 
saber si quieres escribir figuras que se mueven en Código Máquina o esa suerte 

de cosas. Si tú sí quieres hacerlo, nos llevaría demasiado espacio describir cómo: 
Código Máquina del Spectrum profundiza en este tema mucho más. 


Proyectos 


1. Modifica el programa que cambia los atributos, de manera que las diferentes 
secciones de la pantalla tengan diferentes atributos, usando instrucciones DATA 
adecuadas. Usalo para producir un mapa-mundi "sólido", como el del capitulo 2 
pero con los continentes (en lo que sea practicable) sombreados en diferentes 
colores, y los océanos en cyano. 


Si tienes mente matemática, muestra que la siguiente secuencia de instrucciones 
calcula la posicion dentro del fichero de grafismos que corresponde a un pixel 
que en alta resolucion ocupa el renglon r, columna Cc. 


INPUT r,c 

LET ri=175-" 

LET b=INT (ri/éd) 

LET e c1= INT (0/8) 

LET ce; as 

LET 

LET E 

LET Seb+25rr 4er ec 1416354 
LET bitpos=c2+1 


100 FRINT *El pixel con coordenadasO' pri'D'30, 
'se almacena en el fichero de **agorafismos 
en la direccion jar*como bito';bitpos; 
'Odel octeto” 


(La posición de cada bit dentro del octeto, va de f a 7 a partir del más significativo 
y hacia el menos significativo, en la forma: (1234567). 


Sinclair, es de suponer, tuvo una buena razón para usar este orden tan particular... 


Y ahora el Spectrum 5e postra en 
la cama del psiquiatra para echan 
una ojeada a tus variables sistemales.. 


3 Psicoespectrología 


...El arte de experimentos psicológicos con un Spectrum. 


La idea de este capitulo es usar el ordenador para investigar ciertos fenómenos 

curiosos en la psicología de la percepción visual: cómo vemos las cosas. El ordenador 

es ideal para esto: puede establecer imagenes cuidadosamente controladas ("estimulos", 
como dicen los psicólogos) para destacar rasgos especificos del mecanismo de percepción. 
(¿Lo ves?, Ya he echado mano de la jerga, y apenas hemos comenzado). 


POSTIMAGENES 


Si miras a un objeto brillante durante un cierto tiempo, las células del ojo que reciben 
la luz, se "cansan" y dejan de responder vivamente al objeto. Da como resultado 

la formación de "postimagenes": motas oscuras con la misma forma que el objeto 
brillante original. El objeto se desvanece después de unos pocos segundos. 


Supón que el objeto original no sólo es brillante, sino de colores. ¿Cómo se comportan 
estas postimagenes? El siguiente programa te permite determinarlo, usando el Spectrum 
para generar y mantener el estimulo original. 


FEINT AT 17,0;*"Fostimagenes” 

FEINT "Mira al cuadrado" 

INPUT *Color?*.,p 

FOR i=1 TO ¿€ 

FRINT BRIGHT 1; PAPER p;AT 5+i1,13;"0000" 
NEXT 1 

FALSE 500 

CELS 

64 TO 10 


Cuando rulas este programa, teclea el color pulsando el número correspondiente 

de la fila superior de teclas. Aparecerá un cuadrado brillante: obsérvalo, intentando 
no quitar los ojos de él. Cuando desaparece, debieras ver un cuadrado fantasma 

y borroso, que se desvanece en unos segundos. (Si no es asi, o es muy tenue, intenta 
aumentar la pausa a aproximadamente 1/00). 


Si tus ojos furicionan como los mios, los colores que ves debieran ser aproximadamente 
estos: 


Original Postimagen 
negro blanco 

azul amarillo 
rojo Ccyano 


Original Postimagen 


magenta verde 
verde magenta 
cyano rojo 
amarillo azúl 
blanco negro 


Muy bien. Puede que el negro sea gris, y que el rojo un poquito castaño, pero son 
aproximados. 


Observa que los códigos para el original y la postimagen suman 7 (e.g. rojo + cyano = 
2 + 5 = 7). Eso significa que el color de la postimagen es complementario del original: 
contiene precisamente aquellos tintes de color que no estan presentes en el original. 


¿Por qué? Probablemente, porque el exceso de exposición al color original, ha reducido 
la capacidad de las celulas del ojo para responder a el, lo que aparece como una 
forma de respuesta exagerada ante los colores complementarios. 


En circunstancias ordinarias, no notarás mucho las postimagenes (a menos que observes 
muy estrechamente el Sol, lo que es peligroso si lo haces por más de una pizca 

de segundo, asi que no lo hagas). Esto ocurre porque el ojo está constantemente 
bailando de un punto a otro. Pero este experimento con el Spectrum las muestra 

de forma meridiana (no mires demasiado tiempo a la pantalla del Spectrum,, 
tampoco!). 


LA ILUSION HERING 


Data de 1361, y recibe el nombre de su descubridor Ewald Hering. 


FOR i=5 TO 255 5 

PLOT 1,0: ORAY 2 

NEXT i 

FOR íi=5 TO 175 

PLOT 0,i: URAY 255,1 75-21 

NEXT i 

INPUT "*"Espaciando?",q 
110 PLOT 0,57-q: ORAW 255,0 
120 FLOT 0,287+q: URAY 255,0 


Traza un manojo de rayos a través del centro de la pantalla, luego pide un dato. 
Intenta primeramente entre 10 y 20. Aparecen dos lineas. Parecen curvas (aunque * 
la curvatura de la pantalla puede arruinar un poquito la ilusion). 


Sin embargo, queda claro de las instrucciones 114 y 120 del programa que deben 
ser rectas. Las otras lineas atontan al ojo. 


Ensayalo con diferentes valores de espaciado, y diferentes combinaciones de tinta 
y papel. ¿Que valores dan la mejor ilusion? 
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LA ILUSION WUNDT 


No fue hasta 1896 en que alguien ensayó lo obvio, e hizo las lineas curvarse de 
otra manera. El genio responsable fue Wilhelm Wundt, el primer hombre en sugerir 
que los psicólogos se preocuparan de realizar experimentos. Dibujar arbolitos y todo 
€SO... 


10 FOR i=-125 TO 125 STEP 10 

20 PLOT 127,0: DRAW 1,87: DRAW -i1,88 
30 NEXT i 

40 FOR i=2 TO 87 STEP 10 

50 PLOT 0,i: URAW 127,—i:z ORAW 128,i 


60 FLOT 0,175-i: ORAW 127,i: DRAW 128,-i 
70 NEXT i 

100 INPUT "Espaciando?",q 

210 PLOT 0,87-q: DRAW 255,0 

220 PLOT 0,87+q: DRAW 255,0 


Funciona de la misma manera. Reconozco que la ilusión es más eficaz en una pantalla 
de TV que la version de Hering: ¿tú que piensas? 


LA ILUSION POGGENDORF 


¿Te has dado cuenta de que todos son alemanes? Johann Poggendorf propuso ésta 
en 18604. 


10 FOR i=0 TO 20 

20 PLOT 20,70+i: DRA 200,0 

30 NEXT i 

40 PAUSE 50 

50 PLOT 20,10: DRAW 200,13 

60 IF INKEY*$="" THEN 60 TO “0 

70 OVER 1: FLOT 113,70: DRAW 30,20 
50 UVER 0 


Este programa pinta un bloque rectangular y dos lineas que radian de él. Parece 
como si estuvieran desplazadas y no fueran una sola. 
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PARA 


ASPIDOPOCASDZAIPEAAIEACITITEO CPES POTPEPTTCIEIOSO 
EAPASPICPILPOSGEAIO ACC CC-7EPTACLOELIDS DITA 
ACIICTRTCIVORICCS POCCIECICIPITCTICREACICSICTCCTIAS 
¿-CROSCITICTPOS PCIA IICA POTES PACRCSACCIIAS 
EPEPILPEPCIEPPIERLCTECOCEGCAPCCIOPE CCC CS ICITCDICITIPES 
AONAPECIOAACAEPTORE DESTE SPCTCCRCPPEPACICOCOHO CAROS 
-OPCCCCCCPCCCCLESLCPIICAPTCENC ELECTRIC CC HOCCRICLESECCICS PS 
ASPELEOSILOCCES POC LPPRITEOCTASPAPRTCOROIITC IIED ES LRETRIACCSOSAOS 
IOPESELECIOZIICA DIAS PIES CCIPPCCOIPO CIS EPI CC CCC LIS RECCCPE PEPEPS 
-APCCIIOPCICSIPTE PORTS PCPTCTTC AICC DIET IEDITCCOIACIIDESEC_AOCS PTAS 
ARESRPILIDICIDADECESCSCECTÓSEDCTOS VPLCCTTIPETIDESSOGESESECTIEATIS 
-APPICSIRCORE SL SEC IPOCCEATCCSCICS  PLTCACITTTESCIPOSCCIESEPCCAOIIAPOS 
APPERCOPPOLEDIACC FS CGT SC CE PCOCCNPPICTCCPACIC SES CS PRITCCICLECSELACS DARA 
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Figura 8.1 La Ilusión Poggendorf: ¿está toda la línea derecha? 
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Sin embargo, si pulsas una tecla, se dibujará un trazo en blanco entre ellas para 
mostrar que estan muy bien alineadas una con otra: y ahora toda la línea aparece 
derecha. 


Hmmm... 


LA ILUSION MÚLLER-LYER 


Al principio pensé que eran dos alemanes... pero no: Franz Múller-Lyer tiene un 
apellido doble (Doppelname, como dicen ellos). 


10 FLOT 40,130: UFAW 130,0 

20 PLOT ar ¿0: ORAY 150,0 

20 PLOT ,43: DORAV 15,15: DORA -15,15 
40 FLOT 235,45: ORAW -15,15: OFAY 15,13 
50 PLOT 115: DRAW -13,15: ORAW 15,15 
¿0 FLOT 205,115: DRAW 15,15: OFRÁAW -15,15 
0 IF INKEY$=*"" THEN GO TO 70 

30 FOR t=1 TO 7 

90 PLOT 40,140-10=t: DURA 0,-7 
100 PLOT 220,140-10*t: DFAW 0,-7 
110 NEXT t 


Ya has visto esta. Son dos flechas con las cabezas apuntando en diferente dirección. 
La inferior es claramente mas larga. ¿O no? Pulsa cualquier tecla: mira las lineas 
de puntos... 


"Ms 


Figura 8.2 La Ilusión Múuller-Lyer: ¿son de la misma longitud? 


LA ILUSION WERTHEIMER 


Debida a Max Wertheimen en 1912... 


Z0 INFUT "*Fausa?*,p 

25 INFLIT "Numero?*,n 

30 FOR t=1 TO 20 

359 FOR ¿¡=1 TO mn 

40 PEINT AT =3,15+2=*(y-5);*0” 
43 NEXT j 


10 FAFER €: INE €: BORDER 0: CL 


S0 PAUSE p 
SS FOR j¡=1 TO n 


FRINT AT 3,15+2=(J 
FRINT AT 14, 15+2%0 5-5); 
NEXT y 

PAUSE p 

FOR y=1 TO nm 

FRINT AT 14,135+2=(-5); 
NEXT j 

NEXT t 
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Cuando lo rules, te pedirá un valor para la pausa -algo entre 1 y 100 está bien- 
y un número. Te sugiero que impongas uno en los primeros ensayos. 


La imagen muestra un cuadrado amarillo (o dos). Si la pausa es pequeña, verás 

dos luces (posiblemente parpadeando) si la pausa es grande, verás una luz durante 

un rato, luego la otra. Pero si la pausa es intermedia, lo que ves es una luz, botando 
arriba y abajo (ensaya con PAUSA = 35). Puedes ver este efecto con las luces antiniebia 
en las carreteras británicas. 


Si ensayas con números mayores de 1 (y no más de 1f ó 12) verás una entera ristra 

de luces. Lo que tú percibes, depende un poco del hecho que no están parpadeando. 

completamente sincronizadas: el programa BASIC tarda tiempo en efectuar el bucle. 
Experimenta. 


Esta ilusión es importante para los juegos de ordenador: los gráficos movientes no 
funcionarian sin el. A proposito, ni lo haria la television ni las peliculas. Ni el Oso 
Yogi ni los Pitufos. 


LA ILUSION SCHWINDEL 


...Debida a Hans-Wilhelm Schwindel en 18372. Bien, realmente no: la inventé yo 

mismo, pero nunca lo hubieras adivinado, a menos que supieras que en alemán "Schwindel" 
corresponde a "impostor o farsante". Sin ninguna duda, media docena de alemanes 

lo inventaron hace medio siglo, pero no sobre un Spectrum. 


OVER 1 

20 FORE 23607,50 

30 FOR i=1 TO 70d: FRINT CHEFS (33+10*FND);:2 NEXT 1 
FORE , 07,60 


FLOT 5.3: DRAW 31,31 
0 PAUSE 20 
GÓ TO 50 


Este dibuja aleatoriamente una imagen llena de motas en alta resolución. (No lo 
interrumpas, u obtendrás mensajes extraños. Si sí interrumpes, teclea POKE 23607, 60). 


RA RÁ XA 55 


Luego comienza dibujando lineas. Tú ves que las líneas entran, pero una vez que 
están dentro, pierdes totalmente el rastro de dónde están. El ojo está detectando 
cambios aleatorios en la imagen, pero no puede retener la imagen resultante con 
ningún detalle. Es algo que tiene que ver con la manera en que percibimos la textura 
de los tejidos. 


Para una variante, ensaya con circulos. Cambia las instrucciones 50-70 de manera 
que digan: 


S0 LET i=S0+1S50ÑFNO: LET j=40+70*FNO 
60 LET r=20%RN0+10 
70 CIRCLE i,j,r 


De nuevo, ves cómo aparecen; pero la imagen no dura. Si aún no estás convencido 
de que los circulos entran completamente, añade un cambio de color: 


55 INK 3 


Ahora verás que algo está cambiando; pero no comienzas a ver los círculos hasta 
que una gran parte de la pantalla se ha puesto magentu. El cambio de color parece 
impresionar el ojo (y el cerebro) incluso más que el cambio en los pixeles individuale: 
Y oscurece este último cambio casi completamente. 


En 4u mayoría, el uso comercial de ordenadores 
nequiere enormes cantidades de información. 
Se almacena en discos o en cintas en gornma de... 


9 Ficheros 


¿Qué es un fichero, en el contexto de cómputo? Los científicos tienen el desconcertante 
hábito de adoptar una palabra de uso común y darle un significado sutilmente alterado 
para que se acomode a sus propósitos. Los cientificos de ordenadores han hecho 
justamente eso con la palabra fichero. Para ellos, la palabra implica una enorme 
(habitualmente) colección de datos que guardan relación con algún tema especifico. 


Así por ejemplo, un agente inmobiliario tendrá registrados en sus ficheros los detalles - 
de las propiedades y parcelas que tiene disponibles para la venta. Fácilmente puede 
decirle a su secretaria, "tráeme la ficha de la Avda. Acacia, 36, por favor"; pero 
debe tener cuidado si hay algún ingeniero de computación,porque puede decirle con 
aires de suficiencia que no utiliza correctamente la palabra, dado que lo que realmente 
quiere es un registro del fichero) Nuestro agente puede argúir, sin que haga cambiar 
de opinión al ingeniero, que él ya usaba la palabra "ficha", y llamaba a las colecciones 
de fichas "ficheros", de forma obvia, antes de que el hombre pensara en ordenadores. 
El ingeniero de computación seguirá ignorando sus argumentos y camuflará el hecho 
de no contestarlos haciendo notar que cualquier detalle de ese registro, como por 
ejemplo, el propietario actual de la parcela en la Avenida de Acacia, 36, o el precio 
que se pide por ella, se denomina campo. En este momento, el agente inmobiliario 
puede que arguya que en su ficha ese era el dato correspondiente a una casilla, y| 

que campo era precisamente lo que la inmobiliaria había urbanizado para hacer 
parcelas; o bien se olvidará de la discusión. 


Echémos una ojeada a otro ejemplo de un fichero de naturaleza más personal. Supongamos 
que quieres mantener detalladamente los discos de tu colección. El fichero es la 

suma total de todos los datos sobre esta colección. Cada ficha cregistro- del fichero 

es obviamente, la información sobre un disco (de los que ruedan a 33*/, r.p.m. .) de 

la colección, y puede estar en un disco (de los que permiten grabar magneticamente 
información) o en una cinta en cassette. Supongamos, por simplicidad, que todos 

los registros son de música pop, y por tanto, tienen 12 canciones en secciones separadas 
de ambas caras. La pista en la que pincha la aguja es sólo una, pero por eso de 

cambiar sutilmente los nombres, también podemos decir que tiene 12 pistas. De 

forma que cada ficha -cada registro- del fichero, consta de los campos -de las casillas- 
dadas en la tabla 9.1. 


Tabla 9.1 


Artista 30 
Fecha de compra 6 
Titulo pista 1 20 
Duración pista 1 (minutos) 5 
Titulo pista 2 20 
Duración pista 2 (minutos) 5 


y así sucesivamente 


0 YN Min + UyN — 


Título pista 12 
Duración pista 12 (minutos) 


Cada uno de los campos descritos en la tabla, tiene una longitud prefijada. Así que, 
por ejemplo, si el artista es Juan Pardo -que sólo ocupa 19 posiciones (incluyendo 

el espacio entre palabras), se añadirán 20 espacios más para completar los 30 simbolos 
standard. Este "36" es una estimación razonable en cuanto al número máximo de 
posiciones que el nombre del Artista puede ocupar. Debiera ser adecuado para la 
mayoría de los propósitos; incluso "Bonzo Dog Doo-Dah Band" cabe, pero no "Dave 
Dee, Dozy, Beaky, Mick and Titch". 


Se puede objetar ahora, que se va a desperdiciar de esta manera un montón de memoria, 
y que sería mejor, permitir que los campos tuvieran longitud variable, y delimitar 
cada uno de ellos con algún símbolo especial. A eso, sólo puedo contestar que tu 
argumento es sensato, pero hacer cosas como esa, haría mucho más difícil la 
programación de lo que estoy preparado para conseguir; así que quedan con longitud 
prefijada y constante. En cualquier caso, y en algunos otros pocos casos, no hay 
cuestión sobre la longitud del campo. Por ejemplo, el campo "Fecha de compra" 
siempre contiene exactamente 6 caracteres: 2 para el día, 2 para el mes y 2 para 

el año; como en P31182 para el día 3 de noviembre de 1982. Similarmente, la 
duración de una canción -de una pista- está casi prefijada. He admitido dos posiciones 
decimales, así que por ejemplo, la duración puede mencionarse como 3,16 minutos. 
Eso sólo ocupa cuatro posiciones, (incluyendo la coma decimal), y yo le he dado 
cinco. Es simplemente como precaución ante la posibilidad de que una canción dure 
diez minutos (o más). 


Como te muestro, el registro -la ficha- completa, ocupa 336 posiciones usando estas 
hipótesis. Asi que si tenemos 204 discos en nuestra colección, el fichero va a ocupar 
67200 octetos, lo que es bastante más de lo que el Spectrum tiene posibilidad en 

su memoria, en una sola tacada!. 


Ese es un rasgo típico de los fichero informáticos; siempre observamos que con 
mucho, ocupan mas espacio del disponible en la memoria principal. Eso significa 
que tenemos que apoyarnos de memoria auxiliar, y para nuestros propósitos, eso 
significa cintas en cassette. 
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FICHEROS EN CINTA 
¿Qué forma debiera adoptar el fichero en cinta? 


Antes de contestar esa pregunta, sería provechoso pensar un poco en cómo vamos 

a usarlo cuando ya lo tengamos. Una cosa que va a ser necesaria con bastante frecuencia 
es revisar el fichero para incluir los nuevos discos que compremos, y para suprimir 

de él los que hemos desechado. Es lo que se denomina como mantenimiento del 

fichero. 


Ahora bien, realmente no podemos quitar nada de un pequeño trozo de cinta. Porque 
quedaría el lugar en blanco (a no ser que lo cortaramos y volvieramos a pegar la 
cinta). La única manera de hacer la tarea es copiar todo el fichero, excepto por 

el trozo que queremos suprimir, desde una cinta a otra. La cinta original queda 
invariada, pero la nueva ya no contendrá el registro suprimido. La figura 9.1 indica 
cómo se puede disponer esto, por lo menos en principio. 


Reproducir Grabar 


Fichero Fichero 
antiguo actualizado 


e 


Spectrum 


Figura 9.1 Uso de dos cassettes para manejar ficheros conservados en cinta. 


Así que necesitamos dos cassettes, una en el modo "reproduciendo" (conectada al enchufe 
"oido"), y la otra en modo "grabando" (conectada al enchufe "boca" o micrófono). 


¿Cuáles son las consideraciones para programar? En esquema, la codificación es: 


l. Leer un registro. 

2. Si es el registro final, entonces acabar. 

3. Sies el que queremos suprimir, volver a la tarea 1. 
4. Escribir un registro. 

5. Iral. 


Ahora bien, si dejamos la cinta corriendo, no hay garantia de que cuando hayamos 
efectuado las tareas 2, 3 y 4, no se haya pasado ya el siguiente registro. Asi que 
obviamente, cada vez que leemos un registro, tendremos que detener la cinta. 


Igualmente, no tiene ningún sentido dejar corriendo la cinta que está grabando cuando 
no tenemos nada que escribir en ella. Dado que nos ocupará más de dos segundos, 
leer o escribir un registro, la puesta en marcha y la detención del motor de arrastre 
muy rápidamente de cinta, va a resultar bastante laboriosa. 


BLOQUES DE DATOS 


Así que lo que necesitamos es un compromiso entre acción -lectura y escritura- 

y paradas. Como no podemos conservar todo el fichero en memoria y tampoco queremos 
tratarlo registro a registro, lo que debemos es separarlo en bloques de un cierto 
número de registros cada uno, de manera que podamos conservar cómodamente en 
rmemoria un bloque de una vez. Para un Spectrum de 16K, hay disponibles para el 
usuario 9K. Si el programa nos ocupa 1K, podemos permitirnos bloques de 
aproximadamente 4K para tener, en cualquier momento dado, un bloque de 4K que 

ha sido metido a la memoria (al buzón de entrada*) y cuyos registros se están 
transfiriendo al buzón de salida* para ser escritos subsecuentemente a la cinta. 

Ahora nuestra organización es la de la figura 9.2. 


Reproducir Grabar 


Buzón de 
ingreso entrada 


YK 


Figura 9.2 Disposición en memoria de las zomas para manejo de ficheros 


Para el ejemplo de la colección de discos, seremos capaces de conseguir 12 registros 
por bloque. 

En lo que concierne al usuario, será conveniente si él no tiene que pensar sobre 

los aspectos domésticos de esta disposición. De hecho, sería más simple si todo 
pareciera como si leyeramos y escribieramos registro a registro. Necesitaremos 

dos subrutinas para esto "coger un registro" (leer) y "dejar un registro" (escribir). 

La mayoría del tiempo, estas rutinas no estarán haciendo realmente ninguna lectura 
ni escritura, sino simplemente transfiriendo datos desde el buzón de entrada o hasta 
el buzón de salida. 


* Input buffer/Output buffer 


Sin embargo, cuando se vacie el buzón de entrada, será necesario leer el siguiente 
bloque; y al contrario, cuando se llene el buzon de salida, habra que escribir ese bloque. 
Llamamos a esas rutinas cogebloque y dejabloque. 


Hay un par de consideraciones más: primeramente necesitamos dos punteros (pin y pex), 
para mostrar lo llenos que están los buzones en un momento dado. Para comenzar, tendremos 
que ponerlos a cero; asi que tendremos, para hacer esto, una rutina denominada iniciar 

y para establecer cualquier otra condición inicial que resulte necesaria. En segundo lugar, 
no hemos pensado sobre cómo debemos terminar el fichero. Obviamente, no hay ninguna 
garantía de que el fichero sea exactamente un número de bloques completos, asi que 
tendremos que plantear alguna forma de forzar la activación de dejabloque al reconocer 
alguna clase de delimitador de fichero. Adoptaremos el convenio que el campo 1 del 

último registro contiene "ultimal" (sobre la base que es muy poco probable, que sea el 
nombre de ningún artista de la canción), y que los otros campos de ese registro no significan 
nada, de forma que en la práctica pueden contener cualquier cosa. 


Otra cosa más. No hemos dicho exactamente cómo vamos a estipular los buzones de 
entrada y salida. Claramente, ambos son cadenas de caracteres. Permitiremos al usuario 
la posibilidad de decidir cuán grandes han de ser los buzones para su aplicación particular. 
La forma más simple de hacer esto, es preguntarle el número de registros por bloque 
(nrb) y la longitud de cada registro (lpr). Luego establecemos dos tablas "litéricas" de 
dimensiones: 

DIM iS (nrb, Ipr) [buzón de entrada] 


DIM eS (nrb, Ipr) [buzón de salida] 


Lo que puede hacerse en la rutina iniciar. 


Pertrechados con estas ideas, podemos comenzar a mirar la forma en que trabajarán 
las rutinas pinza y punza. En esquema, son como sigue. 


Pinza 


IF pin = Y o pin > nrb THEN cogebloque 

IF ¡$ (pin) = "ultimal" THEN PRINT "Llegando al registro ULTIMAL": STOP 
Transferencia de ¡5 (pin) hasta r$ 

Incremento de pin 

REGRESO 


El movimiento del puntero pin necesita un poquito de explicación. Para comenzar, iniciar 
lo pondrá a cero, lo que significa desde luego, que el buzón está vacio. Si ahora se hace 
una llamada a pinza, tendremos que recurrir a cogebloque. De eso nos preocupamos en 

la instrucción 1, y en cogebloque pondremos pin a 1 para indicar dónde está el primer . 
registro a leer; y éste será pasado a continuación a r$ (línea 3) para que pueda usarlo 

el programa llamante. Ahora incrementaremos pin de forma que en la siguiente llamada 
a pinza, sea el segundo registro el que se transfiere a r$. Todo eso está bien hasta que 
todos los registros de ese bloque hayan sido transferidos, momento en el que pin estará 
señalando mas allá del extremo de la tabla (i.e. pin es mayor que nrb). Por eso es por 

lo que escribimos las dos condiciones de la linea 1 antes de llamar a cogebloque. 


Punza 


Incremento de pex 
Transferir r$ a e$ (pex) 
IF pex = nrb OR r$ = "ultimal" THEN dejabloque 


4. REGRESO 


La linea | incrementa el puntero pex directamente, porque iniciar lo ha puesto a cero, 

y eso ha sido antes de empezar a funcionar con la tabla de salida e$. Asi que, en la 
primera llamada, lo que está en r$ será transferido a e$ (1) que es lo que queremos. 
Sabemos que el buzón está lleno si pex = nrb, pero además, queremos forzar la ejecución 
de dejabloque si hemos llegado a nuestra marca de final de fichero. Por eso es por lo 
que ambas condiciones se comprueban en la línea 3. A propósito, dejabloque tiene que 
reponer pex al valor cero, de forma que vuelva a ponerse a l al comienzo de la primera 
llamada a punza después de una llamada a dejabloque. 


Las rutinas cogebloque y dejabloque, son bastante directas también, pero tenemos que 
solventar un problema más antes de bosquejarlas: no hemos pensado sobre cómo 
denominar a los datos que vamos a guardar en cinta. Podemos dar a cada bloque el 
mismo nombre, pero fácilmente produciría confusión y la confusión implica problemas. 
Una técnica mejor es permitir al usuario que dote de nombres a sus ficheros (otra vez 
dentro de iniciar) y luego altere automáticamente el nombre dentro de dejabloque, de 
manera que cada bloque tenga un número diferente. Por ejemplo, si el usuario denomina 
al fichero "tocata", los bloques se guardarán realmente como tocataf, tocatal, tocata2, 
etc. Similarmente, cogebloque tendrá que llevar la cuenta de los bloques al ingresar 

en el buzón. De nuevo, la cuenta de bloques será labor de la rutina iniciar. 


Así que el bosquejo de las rutinas es: 
cogebloque 


PRINT "marchando un PINCHADO de cinta" 

LOAD fichero de entrada + cuentabloques ingresados DATA i$ () 
PRINT "amputando. ACABOSE la rascazón" 

LET pin = 1 

LET cuentabloques ingresados = cuentabloques ingresados + 1 
RETURN 


dejabloque 
PRINT "marchando un PUNCHADO de cinta" 


SAVE fichero de salida + cuentabloques entregados DATA es() 
PRINT "amputando. ACABOSE la grabazón" 

LET pex = Y 

LET cuentabloques entregados = cuentabloques entregados + l 
RETURN 


Nota que cuentabloques ingresados y cuentabloques entregados van a requerir algo más 
de maña para manejarlos de lo que parece, porque parte del tiempo estan usados como 
"líteros" a añadir a los nombres de fichero, y parte del tiempo como "números" que van 
a ser incrementados. Además, tenemos ahora unas cuantas variables literales 
desparramadas,que no son fácilmente identificables porque solamente pueden tener 
nombres con un solo simbolo; por lo que antes de codificar realmente, repasemos 

la lista de nombres y funciones. 
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Función 

buzón de entrada 

buzón de salida 

registro que aparece al usuario como escrito 

o leído 

nombre del fichero de entrada 

nombre del fichero de salida 

lítero a empalmar al nombre del fichero de salida, 
y que corresponde al "número" del bloque que 

se entrega. 


LA CODIFICACION 


Comenzarémos el programa para manejo de ficheros en cassette a partir del número 
9500, permitiendo 190 para cada rutina, por lo que iniciar está en la 9500, pinza en la 
9600, etc. Así que necesitaremos las líneas l a 3: 


1 LET iniciar=9500: LET pinza=9600 
2 LET punza=9700: LET cogebloaque=9200 
3 LET dejabloque=9700 


en cualquier programa que use el sistema de control de ficheros en cinta. 


Escribamos iniciar: 


9500 LET pin=0: LET pex=0 
LET inbc=0: LET exbc=0 
INFUT "Nombre fichero entrada'*;f*+ 
INPUT "Nombre fichero salida';g*+ 
INFUT *Lonaitud del registro *;¡lpr 
INFUT "No. de registros por bloque *;¿nrb 
DIM i*tnrb,lpro: DIM estrarb,lpr? 
FETUEN 


Hasta ahora ningún problema. La rutina pinza también es bastante directa: 


2600 IF pin=0 OR pinsnrb THEN 50 SUB cogebloque 
9610 IF i*(pin)c TO 7)="ultimal* THEN 
FEINT "Llegando al registro ULTIMAL*: STOF 
9620 LET ré=i*+(pin) 
0 LET pin=pin+1 
2640 EETUEN 


mismo sucede con punza: 


3700 LET pex=pex+1 
9710 LET es(pexd=r+ 

0 IF pesx=nrb 0% ré="ultimal* THEN 60 SUB dejabloque 
9730 FETLIEN 


Ambas son bastante idénticas a los programas bosquejados, ¿o no? 
Las rutinas cogebloque y dejabloque, requieren un poquito de toma y daca malabarista 
para manejar las conversiones de literos a numeros: 


A 


LET mi=STRé inbo 

FRINT *"Marchando un FINCHADO de cinta” 
LOAD fé+m+ DATA 1%() 

FPEINT *Amputando. Ácabose la RASCAZON” 
LET pin=1 

LET inbce=inmbc+1 

RETUFEN 

LET mé=STR$ exbre 

PRINT "Marchando un FUNCHADO de cinta” 
SAVE at+m+ DATA est) 

FRINT *"Amputando. Acabose la GRABAZON" 
LET pex=0 

LET exbc=exbc+1 

RETURN 


Soo 95 92599909900 


NOAA a 


COMPROBANDO 


Ahora, lo que se necesita es un pequeño programa para comprobar que todo funciona. 
No queremos tener que teclear una enorme pila de fruslerías, así que estableceremos 
pequeños buzones y haremos que el programa genere su propio fichero. La cosa más 
simple es justamente generar una serie de número correlativos. 


Debiera hacerse esto: 


10 GO SUB iniciar 
20 FOR n=1 TO 100 
30 LET r$=STR$ n 

40 60 SUB punza 

50 NEXT n 

60 LET r$="ultimal" 
70 GU SUB punza 

20 STOP 


Pasalo. La primera cosa que sucede es que iniciar te pide el nombre del fichero de 
entrada. Desde luego, no hay ninguno porque no lo hemos creado todavía -eso es lo que 
nos disponemos a hacer-. Asi que dale un nombre cualquiera, "nulo" por ejemplo. Ahora, 
te pregunta el nombre del fichero de salida, al que puedes llamar "prueba" o "Pinocho", 
o lo que sea. Luego, iniciar te pregunta la longitud del registro en octetos. En este caso, 
nunca es más de 3 (cuando n = 100) pero ¡ojo al parche! "ultimal" ocupa 7 octetos, así 
que todos los registros deben tener como minimo 7 octetos de longitud. (Si no te gusta 
esto, siempre puedes usar algunos caracteres especiales. vigila y Cuidado -los caracteres 
de control pueden tener efectos extraños!). Finalmente, iniciar desea saber el número 

de registros por bloque. Elige 20, por razones que serán claras y meridianas dentro de un 
momento. 


Ahora, el bicho hace una pizca de tratamiento hasta que llena el buzón de salida, en 
que, desde luego, se llama a la rutina dejabloque. Por lo que tú ves aparecer en la 
pantalla el mensaje: 


"Marchando un PUNCHADO de cinta" 


Dado que lo que viene a continuación es el comando para guardar en cinta el fichero, 
verás el aviso usual para encender la grabadora de cassette y pulsar cualquier tecla. 

Así que si lo deseas, puedes ahorrarte la linea 991f. La única desventaja haciendolo asi 
es que el aviso standard del Spectrum nos señala que la cinta debe colocarse en el modo 
de grabación. A propósito, cuando estás manejando un fichero de entrada y uno de 
salida, parece que se requieren más manos de las naturales. 


Las cosas pueden hacerse ligeramente más sencillas dejando las dos cassettes en los 
modos PLAY y RECORD respectivamente, y controlando sus movimientos usando el boton 
de pausa (siempre y cuando tus cassettes lo tengan, desde luego). 


Mientras tanto, y volviendo al programa, tan pronto como se haya entregado ese bloque, 
obtienes el aviso para apagar el cassette. En este caso, y a causa de que el buzón se 
llena muy rápidamente, obtendrás casi inmediatamente otro mensaje para comenzar otra 
grabación. Así que, apenas merece la pena preocuparse. Todo lo que sucede si no cortas 
el cassette entre los bloques es que obtienes intervalos ligeramente mayores entre los 
bloques. 


En total, el programa guardará seis bloques, dado que se necesitan exactamente cinco 
para los números 1 a 100, lo que indica que el sexto sólo contiene "ultimal". 


Ahora necesitamos comprobar que el fichero ha sido por supuesto, guardado correctamente. 
La cosa más simple a hacer es cambiar las lineas 2f, 30 y 4P para que sean: 


20 GO SUB pinza 
30 PRINT r+ 
40 60 TO 20 


y rularlo de nuevo, con el cassette en el modo PLAY. Lo que debería suceder es que 
después de iniciar ha preguntado los detalles del fichero (esta vez es el fichero de salida 
el que es nulo), el sistema avisa que se apague el cassette, luego la rutina cogebloque 
lee 20 números que pasa sucesivamente a la rutina pinza, que a su vez los pasa a r$ 

uno a uno; después de lo cual, son mostrados en pantalla, y se saca un aviso para que 

se apague el cassette. Y eso es lo que sucede con un par de añadidos. Primeramente, 


desde luego, el Spectrum muestra el nombre del fichero que está leyendo, así que podremos 
ver: 


character array: tocataf (o como le hayas llamado) 


en la primera pasada. 


PROBLEMAS DE DESROLLE 


Eso desde luego, es lo que sucede, pero se nos ha colado una mosca en la sopa: el mecanism 
de desrolle se mete por medio. El sistema te pregunta si quieres desrollar y cuando 
respondes afirmativamente, inmediatamente sale con el mensaje: 


"Amputando Acabose la RASCAZON" 


Así que si eres lento para responder, puedes encontrarte con la cinta a medio camino 
del siguiente bloque antes de que el programa haya comenzado a leerla. (Este problema 
es patente particularmente, con un tamaño de bloque de 20 registros, que es por lo que 
lo elegi). No es un desastre total porque el Spectrum sólo intenta leer el bloque que 

se supone que es el siguiente, así que puedes rebovinar un poco; pero eso es bastante 
tedioso. Una alternativa mejor es desactivar conjuntamente el mecanismo de páginas 
del Spectrum -el desrolle- durante la actuación de cogebloque. 


Recuerda del capítulo 6 que hay una variable sistemal llamada SCR-CT con sede en 
23692 que puede usarse para esto. Contiene el número de líneas (más 1) que se mostrará 
en pantalla antes de emitir el siguiente mensaje "scroll?". Así que si hincamos ahi el 
valor 255 (el máximo posible) siempre que se llame a la rutina cogebloque, quitaremos 
la mosca de la sopa. Asi que añadamos: 


9825 POKE 23692, 255 


LÍA 


65 


Debe ir después de la instrucción de carga, porque esa instrucción restaura el valor de 
SCR-CT a l. 


Ahora, cada vez que recurramos a la rutina cogebloque nos permitimos sacar en 
pantalla 256 líneas antes de que aparezca la pregunta de desrrolle. Si esto es adecuado 
depende de la aplicación. En este Caso, es mas que suficiente, pero pudiera ser más 
seguro incluir esa instrucción en la rutina pinza asi como en la rutina cogebloque, dado 
que se recurre a esa rutina más a menudo. Incluso entonces, el efecto no está 
garantizado absolutamente, dado que depende de cuanto escriba el programa de usuario 
en la pantalla antes de la siguiente lectura, pero bajo circunstancias normales no habrá 
problemas. 


SIN NOVEDAD... POR AHORA 


Vamos a hacer una pausa para un respiro, y revisar lo que está pasando. Nota primero 
que iniciar se ha utilizado de dos maneras distintas: 


l. Para crear un fichero sobre el que grabar; 
2. Para abrir un fichero que ya existe y va a ser subsecuentemente leido. 


Así que pudieramos haber escrito dos rutinas separadas en lugar de iniciar, llamadas 
crear y abrir; y hay algo, desde luego, que tiene que decirse en cuanto a esta 
aproximación, dado que como hemos visto, si sucede que no queremos un fichero de 
entrada y uno de salida simultáneamente, tenemos que darle nombres postizos para 
que iniciar sea feliz. 


En segundo lugar, se le exige al usuario que maneje la terminación de los ficheros por 
si mismo. En otras palabras, él tiene que saber que el fichero está delimitado por 
"ultimal". Podríamos haber escrito otra rutina que llamaríamos cierre, que hiciera 
automáticamente esa tarea, de manera que las lineas 60 y 74 de nuestro programa de 
comprobación pudieran sustituirse por: 


64 GO SUB cierre 
y cierre sería justamente: 
LET r$ = "ultimal" 
GO SUB punza 
RETURN 


MICRODUCTORA 


Ahora, si observas el teclado del Spectrum, verás como palabras clave: CLOSE /f y 
OPEN f/f. Son los comandos equivalentes a los que hemos estado comentando, para 
ficheros en diskettes. (No hay CREATE 4f, de forma que OPEN /f debe hacer esas 
tareas, igual que las hace iniciar). Los equivalentes para pinza y punza son INPUT /£ 

y PRINT /f. Todo lo demás (la organización de los bloques del fichero y demás) es 
manejado por el sistema operativo del Spectrum, y por tanto, la estructura de ficheros 
en diskette es "transparente" al usuario como lo es la de ficheros en cassette que hemos 
descrito. Realmente, las rutinas que manejan microductoras de diskette tienen que 
hacer mucho más que pinzar, punzar, coger bloques, dejar bloques e iniciar, pero los 
principios son similares. 


CONTROL AUTOMATICO 


Hay una pregunta que te habrá estado rondando durante algún tiempo: "¿podemos hacer 
y preg q h st 8 ¿P 
que el Spectrum controle automaticamente los motores del cassette?". 


La respuesta es que sí, y no es muy difícil. Necesitas cassettes que tengan enchufes 

para control remoto (la mayoría lo tienen). También necesitas un "portal" paralelo de 
entradas/salidas y un par de relés de 5 voltios. Los contactos de los relés se usan para 
completar los circuitos de control remoto del motor, y sus bovinas están gobernadas 

por cualquier pareja de bits del portal. Luego, en lugar de presentar mensajes, simplemente 
fijamos el portal con ciertos valores en cada bit (usando BIN). El Apéndice B da detalles 
de los circuitos. Desafortunadamente, SAVE todavia envia automáticamente su aviso 

para encender el cassette, y espera que se pulse una tecla. Asi que, una automatización 
total está todavia tentándonos por encima de nuestro alcance. 


USANDO FICHEROS 


Ahora bien, recordarás que los impetus para todos estos esfuerzos vinieron de la idea 

de manejar los detalles de nuestra colección de discos, y parece ser que nos hemos perdido 
involucrándonos en los detalles del manejo de ficheros en cinta. Pero, desde luego, 

ahora que ya lo sabemos, nos será mucho más fácil escribir el programa primitivo. 


Hay tres funciones básicas en cualquier fichero de sistemas: 


l. Crear el fichero a partir de la nada 
2. Mantenerlo haciendo las necesarias inserciones y supresiones. 
3. Escrutar el fichero en busca de un determinado registro. 


Por simplicidad, las escribiremos como programas separados, aunque sería una nimiedad 
vincularlas juntas por medio de un menu (véase nuestro libro Código Máquina y Mejor 
Basic). 


La rutina de creación de fichero comienza bastante directamente. Habrá una llamada 
a iniciar en que el fichero de entrada se pone a "nulo", el fichero de salida a "reccol" 
(por ejemplo); la longitud del registro a 336 y el número de registros por bloque, algo 
asi como 5 para permitir al programa un espacio cómodo. 


Ahora tropezamos con el único problema serio en esta rutina. Hay que estipular cada 
registro en una manera conveniente para el usuario. Por ejemplo, sabemos que el campo 
"Artista" tiene 30 octetos de longitud, pero no queremos que el usuario teclee el nombre 
de "ABBA" seguido de 26 blancos. Asi que tendremos una subrutina llamada inreg que 
maneje el ingreso de un solo registro de manera amistosa y cómoda. 


El programa crear será entonces como éste: 


SUB iniciar 
UB inrea 
GO SUB punza 
INFUT *Alauno mas (s/n)*;q% 
IF aé=*"s* THEN 0 TO 110 
GO SUB cierre (Suponiendo que lo hayas implementado) 


STOF 


A po po po po pp 
A A 
SO So S>So> 


Vamos a preocuparnos ahora de inreg. Vamos a establecer una tabla litérica, aó, que 
va a contener el registro a medida que lo construimos. Asi que si inreg está en la linea 


8000: 
38000 DIM aS$ (336) 


- Podemos requerir al usuario el primer dato preciso, y colocarlo en el lugar correcto: 
8010 INPUT "Artista"; a$ (TO 30) 


Luego 
80204 INPUT "Fecha de compra"; a$ (31 TO 36) 


Después de lo cual, trataremos las 12 pistas de la misma manera: 


8030 FOR t = 1 TO 12 
8949 PRINT "pista"; t 
Y ahora queremos escribir algo como: 
30604 INPUT "título"; a$ (principio TO fin) 
habiendo determinado en la línea 8450 lo que "principio" y "fin" vale. 


Obviamente, "principio" y "fin" cambian en función de la pista en la que estemos 
en este momento. Escribamos una breve tabla de los valores para darnos una idea 
de las relaciones involucradas. 


Pista (t) Principio 


1 
2 
3 


Asi que, principio = 37 + 25 * (t - 1) 
y fin =56 + 25 * (t - 1) 


Por lo tanto: 
8950 LET principio = 37 + 25 * (t - 1): LET fin = 56 + 25 * (t - 1) 
La duración de la pista va desde principio +1 hasta fin + 5: 
8070 INPUT "duración"; a$ (fin + 1 TO fin + 5) 
Y luego: 
8030 NEXT t 
Pasamos el resultado a r$: 
8099 LETrS-=a$ 
y como ya tenemos todo: 
381006 RETURN 


MANTENIMIENTO 


¿Qué pasa con el programa de mantenimiento? De nuevo, comenzará con una cita 

a iniciar, y por primera vez, queremos definir ambos ficheros, el de entrada y 

el de salida. El fichero de entrada puede llamarse "colevieja", y para identificar 

el fichero de salida como actualización de éste de entrada, podremos llamarle 
"colenueva". Las actualizaciones posteriores podrian denominarse "colenuevb", "colenuevc", 
y así sucesivamente, a la manera de las matrículas de los coches. O puede que 

prefieras dar información de la fecha y llamar al fichero, digamos cl982, para 

indicar colección en Septiembre del 82. En cualquier caso, se necesita algún sistema 
formal, porque de lo contrario, es demasiado probable coger un fichero equivocado 

y modificar la información incorrecta. 


Para comenzar, no nos complicaremos la vida, y haremos que el usuario sólo haga 
una inserción o una supresión en el fichero a cada una de las rondas del programa. 


Así que tendremos: 


GO SUB iniciar 

INFLIT *Insertar o Suprimir (a/b)*";q% 
IF g+="a" THEN 60 SUB cosecha: STÚF 
IF g+="b" THEN 60 SUB desecha: STOF 
0 TO 110 


SUPRESION 


Vamos a por la rutina "desecha" (porque es la más fácil de las dos). Supongamos 

que la vamos a colocar a partir de la 6000. Necesitamos establecer la dimensión 

de una tabla literal que refleje el nombre del artista y la fecha de compra, con lo 

que identificaremos el disco univocamente. Desde luego, eso supone que no has 
comprado dos discos del mismo artista en el mismo dia. Esta posibilidad de ambigúedad, 
causa problemas a menudo al diseñar el fichero, y la manera usual de evitarlos 

es añadir un campo extra que se denomina clave, al comienzo de cada registro, 

y que contiene un número asignado únicamente a ese registro. Los números de 

cuenta en los bancos es un ejemplo de esto. En cualquier caso, suponiendo que 

todo está OK, necesitaremos: 


¿010€ INFLIT *Arti *jaéC TO 30) 

6020 INFUT "Fecha de compra *¡a*(31 TO 36) 
que indaga el disco que se quiere suprimir con el mismo formato en que escribimos 
la rutina inrec. Bien; todo lo que tenemos que hacer ahora es sacar los registros 
del fichero de entrada, ver si concuerda con este que queremos suprimir, y si no, 
volver a meterlos en el fichero de salida: 


SUB pinza 

ré( TO 36)=a% THEN 60 TO ¿030 
SUB punza 

TO 4030 


e 
NA 
SSo>>o 


A 
Soo> 


ID IA Y 


0 
ES 
De 


Es simple, ¿verdad?. Desafortunadamente, es demasiado simple en el medio. Pero 
consideremos lo que sucede cuando los acercamos al extremo del fichero. 


buzón de 
entrada 


Supongamos que acabamos de sacar el registro 130, y de ver que no es candidato 

a la supresión, por lo que ha sido transferido al buzón de salida mediante la rutina 
punza. Ahora, de nuevo citamos a pinza y al encontrarse con "ultimal", la rutina 
dice que ha alcanzado el final del fichero y el programa se detiene con un mensaje 
de error. Ahora puede que digas "eso no es ningún problema real, porque ya hemos 
finalizado de todas formas esta etapa". 


Pero no lo hemos hecho del todo, porque en el buzón de salida todavía tenemos 

los registros 179 y 180 que no han sido punzados en cinta, y además, no hay marca 
de fin de fichero en el de salida, por lo que te puedo garantizar que sucederán 
misteriosos percances, si intentamos leer este fichero que acabamos de crear. 

A propósito, cuando ocurre este tipo de cosas, se dice que el buzón de salida no 

ha sido vaciado o descargado (en inglés se dice "flushed" porque su buzón lo asimila 
más a una cisterna de agua que descarga para limpiar un determinado depósito). 


Hay unas cuantas maneras de salir de este atolladero en que hemos -mejor dicho he- 
caido. Quiza, la mas simple sea tener dos marcas de fin de fichero, una para beneficio 
del control de ficheros (ultimal) y otra para beneficio del usuario (usaremos "))"). 


Por lo tanto, necesitamos reescribir la rutina cierre para que genere ambas marcas 
de fin de fichero: 


LET r$=")": 

GO SUB punza 
LET ré="ultimal" 
GO SUB punza 
FETUEN 


(Obviamente, tenemos que identificar cierre para beneficio de BASIC; podemos 
añadir en la linea 3: 


3  LET cogebloque = 9900: LET cierre = 9740 


Podemos ahora modificar la rutina desecha para comprobar la marca de final de 
fichero del usuario, y cerrar el fichero de salida cuando se encuentre dicha marca. 


70 


¿000 
6010 INFLIT TArtists trar TO =0) 
: INFUT *Fecha de compra *¡paf(31 TO 36) 
GÓ SUB pinza 
IF réc TO 23="53* THEN GO SUB cierre: EETURN 
IF rs TO Só=a+ THEN GO TO ¿4030 
GO SUB punza 
60 TO ¿4030 


Observa que en las líneas 6044 y 6050, solamente se usan para comparaciones de los 
primeros dos y los primeros 36 octetos de rS, respectivamente. Es importante, 

y fácil de olvidar si no se es cuidadoso. Aqui el detalle, es que r$ tiene 336 octetos 

de largo, e incluso cuando está vacio, ")" no es la misma cosa que ")) + 334 blancos" 
en cuanto a BASIC concierne. 


INSERCION 


Vamos ahora con la rutina cosecha. No hemos dicho nada todavia sobre el orden en 
que los registros van a quedar depositados en la cinta. Supongamos por un momento, 
que es orden alfabético según el nombre del artista; pero si hubiera más de un disco 
del mismo artista, el orden no estaría definido. Asi que nuestro problema, en general, 
se puede enunciar asi: 


l. Imponer datos del nuevo disco 

2. Leer un registro del fichero. 

3. Sies final de fichero: pues cerrar fichero y regresar. 
4 


Si el nombre del artista en el registro del fichero, va delante del 
nombre del artista en el registro a añadir, se escribe el registro del 
fichero en el fichero de salida y se vuelve a efectuar la operación 2. 

5. Se escribe el registro a añadir. 

6. Escribe registro del fichero. 

7. Vuelve a la operación 2. 


En otras palabras, hacemos exactamente lo que haríamos con un fichero de fichas 

en cartulina: preparar la nueva ficha, repasar el fichero hasta que encontremos el 
lugar correcto para la nueva ficha, y meterla en él. La única diferencia es que en 

el caso del fichero mecanizado, estamos materialmente trasvasando los registros 

de un lugar a otro (entrada a salida) cada vez que los leemos. Es como si tuvieramos 
dos cajetínes con fichas, y las reglas fueran que en cuanto leyéramos una del cajetin 
de entrada, tenía que ser copiada en otra ficha del cajetin de salida. 


En nuestro algoritmo hay, sin embargo, una pifia muy sutil. Supongamos que el último 
registro de nuestra colección corresponde a Suzy Quatro, y queremos añadir un disco 
de Yango. El procedimiento definido arriba, funciona por todo el fichero, trasvasando 
registros a medida que pasa, hasta que llegue finalmente al disco de Suzy Quatro. 

En ese momento detecta la marca de final de fichero, así que cierra el fichero dejando 
los detalles del disco a añadir todavia en la memoria!. Por tanto necesitamos modificar 
la operación 3: 


3. Sies final de fichero, pues comprueba, cierre de fichero, termina. 


Siendo comprueba una rutina que indague si el registro a añadir ya ha sido transferido 
al fichero, y si no lo ha sido, ella misma lo transferirá. 


Vamos a redactar la rutina cosecha a partir de 5000. Primero tenemos que imponer 
los detalles del disco a incorporar a la colección. Pero como ya hemos preparado 
una rutina que acepta la serie completa de detalles del disco: inreg, simplemente 

la citaremos. No hay necesidad de volver a inventar la rueda... 


5000 60 = LET tras.ase=0 
5010 560 3 
5020 IF 
0 Ss 
IF 


bu => 


imMrFeg: 
pinza 
TO 2="3>3* 
, comprueba: 60 SUB cierre: 
TO =303<a*+(C TO 30) THEN 
y punza: 60 TO 5010 


THEN 
FRETLIEN 


5030 


Antes de que avancemos demasiado, hay un par de cosas que necesitan breves 
explicaciones. Primeramente, la instrucción que hace que el trasvase sea igual 

a cero. La rutina comprueba va a necesitar saber de alguna manera, si los detalles 
del disco adicional han sido transferidos al fichero de salida o no. En cuanto se 
imponen por teclado los detalles, hacemos que el trasvase sea igual a cero. Cuando 
la ficha pertinente ha sido trasvasada al fichero de salida, tendremos que poner 
trasvase a uno. Por lo tanto, comprueba sólo tiene que mirar trasvase para ver 

si es cero. Si lo es, todavía hay que sacar al fichero de salida ta ficha añadida. 


En segundo lugar, la línea 5430 compara dos variables litéricas: r$ con el valor 
entregado por la rutina pinza, y a$ que es el devuelto por la rutina inreg. (r$ en 
un principio también fue impuesta mediante inreg,' pero inmediatamente después 
fue machacado por pinza). El uso del símbolo "menor que" tiene aquí el significado 
de "va delante alfabéticamente", de manera que tratar con valores litéricos en 
orden alfabético no presenta ningún problema. 


Para continuar: 
5040 LET bi=r3 


5050 
5060 
5070 
5050 
5070 
=100 


LET rié=at 

GO SUB punza 
LET trastase=1 
LET ríá=b+ 

GU SUB punza 
0 TO 5010 


[deposita el último registro sacado del fichero] 
[transpasa el incorporado a r$ para escribirlo... 

y lo escribe] 

[indica que ya ha sido escrito] 

[recupera el último registro en r$ para escribirlo... 


y lo escribe] 


finalmente, para escribir comprueba (a partir de 5240): 


3200 


IF trasuase = 
1 THEN 
LET ri=a+ 

0 SUB punza 
FETLIEN 


RETLIEN 


[no se necesita ninguna acción porque ya se 
ha sacado al fichero de salida el nuevo registro] 


[deposita en r$ el registro a añadir 


y lo escribe] 


Proyecto 


Todo lo precedente supone que solamente va a hacerse una alteración al fichero 
por pasada. Pero si sales y te vuelves loco comprando discos y consigues 15 nuevos 
discos, y luego regalas 4 de tus viejos a Pepito, tendrás que pasar el programa 

de mantenimiento de ficheros 19 veces para mantener actualizado el fichero. 


Intenta escribir un programa de mantenimiento que al principio le impongas por teclado 
todas las variaciones. Las deposite temporalmente en una tabla las inserciones, y 

en otra las “delecciones” Luego tendrás que cotejar cada registro del fichero con cada 
uno de los elementos de las dos tablas para decidir si tienes que suprimirlo, trasvasarlo 
al fichero de salida, o efectuar previamente una inserción. Observa que cada uno de 
los discos a incorporar necesita su propio testigo de trasvase (i.e. por eso tendrá que 
haber una tabla de trasvases y no una variable simple). Observa además, que el orden 
en que reflejes los añadidos no es importante, porque el programa buscará en todo 
momento para ver si tiene que insertar algo. No te olvides de admitir el hecho que 
puede ser necesario hacer más de una inserción entre dos registros dados del fichero. 
Es un pensamiento interesante el realizar la creación del fichero simplemente con 

un par de registros, y luego usar el propio programa de mantenimiento para añadir 

el resto de los registros: ¡el fichero se generará automáticamente en orden alfabético! 


ESCRUTANDO EL FICHERO 


Habiendo gastado un tiempo considerable en crear este fichero, debieramos encontrar 
algún uso para él. Supongamos que queremos preparar una cinta con música de fondo 
para nuestro guateque. Queremos una cierta gama de canciones, todas de 3 minutos 
aproximadamente, por lo que nos gustaría es una lista de las canciones que duran 
entre 2,7 y 3,3 minutos, por ejemplo. 


Así que queremos un programa que haga: 


mostrar nombre del artista, fecha de compra 


para todos 
los discos 


si la duración cae dentro de las 
cotas 2,7-3,3 pues, mostrar. el 
las canciones titulo de la cancion 


para todas 


Es bastante simple: 
SUB iniciar 
IB. pirza 

EC TO 2) 3% TREN =STOF 
FEINT rec TO h 
FRINT récs1 TO 


FOR t=1 TO 12 

LET comienzo=397+(t-11e25 

LET 3=VAL rétcomienzo TO comienzo+d) 
IF di2.7 uk d 3 THEN 0 TO 200 
FERINT ré(comienza-20 TO comienzo-1) 
NEXT t 

604 TO 110 


Observa que, dado que sólo leemos el fichero, no hay necesidad de hacer operaciones 
de cierre, cuando se detecta su final en la instrucción 126. 


La única argucia aqui, es evaluar la duración de cada canción como un número. Primero 
tenemos que detectar la parte significativa de ES (línea 160). Luego es necesario crear 
un valor numérico a partir de esta variable litérica (línea 17f) de forma que podamos 
comparar números como hacemos en la línea 180. Evidentemente, los valores 2,7 

y 3,3 pudieran simplemente asignarse a variables al principio del programa. Así se 

nos permitiría hacer otras preguntas, como: 


"Enumera todas las canciones con una duración minima de 4,5 minutos" (con eso 
nos bastaría dar como valor de la cota inferior 4,5;y de la superior algo ilogico 
pero aceptable como 9999). 


O bien: 
"Lista todas las canciones que duren exactamente 3 minutos" (si hiciéramos ambas 
cosas igual a 3). 


Proyecto 


Detectar otros rasgos especificos del fichero es igual de fácil. Ensaya los siguientes: 


l. Enumerar todas las canciones de un artista dado. 

2. Lo mismo que para l pero con la fecha de compra incluida entre dos fechas dadas. 
(Ligeramente más difícil de lo que parece, a causa de las comparaciones de fechas). 

3. Relaciona todas las canciones en cuyo titulo aparezca la palabra "rock" o cualquier 
otra palabra impuesta por teclado. 


REGISTROS DE LONGITUD VARIABLE 


He dicho al comenzar que ibamos a suponer que todos los discos tenian 12 canciones, 
y Cuyo titulo ocupaba exactamente 2f octetos, y otras cosas. Lo que he creado es 

un fichero cuyos registros están garantizados que son todos de 336 octetos de longitud. 
Dudo que te sorprenda saber que de tales ficheros decimos que tienen registros de 
longitud prefijada o constante. Además, dentro de cada registro, los campos también 
son de longitud prefijada, de manera que cada titulo de canción tiene que ser 
completado con espacios (o abreviado cuando es largo) para que tenga 20 octetos. 
Ahora bien, en un mundo ideal, sería hermoso permitir campos con longitud variable 
(terminando cada uno con un delimitador de campos de alguna clase) y registros de 
longitud variable (también terminados con algún otro delimitador). De esa manera, 

no desperdiciaríamos 27 octetos con cada album de "OLA", y no habría 8 títulos nulos 
para cada una de las sinfonías de música clásica (suponiendo que tratamos cada uno 
de sus movimientos como una canción). 


Sin embargo, considera que a veces, lo que se gana en las habitaciones se pierde en 

los pasillos. Primeramente, el programa que segrega los campos de un registro se 

hace más complicado. Tenemos que escrutar octeto a octeto, para detectar los 
delimitadores de campos, y no podremos hablar sobre el "quinto campo" porque puede 
que no haya. En segundo lugar, los utensilios de programación -las rutinas- para leer, 
escribir y tratar los bloques en que se segmenta el fichero, se vuelven bastante peliagudas. 
Después de todo, con nuestros campos y registros prefijados, fue fácil definir un bloque 
(y también eficaz) simplemente como una lista, con tantos elementos como registros 
por bloque, y de tamaño igual al número de octetos por registro. Si cambia el número 
de octetos por registro, según el registro que sea, ya no podemos pensar de forma 

tan cómoda. Por otro lado, si mantenemos a un tamaño constante los buzones, cambia 
entonces el número de registros por bloque en función del tamaño de los registros 


concernientes! 


No quiero dar la impresión de que tratar con registros de longitud no constante, está 
fuera de la pericia de un hombre normal; sólo que puede que no sea tan sensato como 

a primera vista aparece. La cuestión, es que si aumentamos la complejidad de nuestras 
rutinas, también incrementamos su tamaño, lo que tiene como consecuencia la disminución 
de la memoria que queda libre para el programa de usuario y para los buzones de 

los ficheros. Además, y a no ser que se esté desperdiciando un montón de espacio 

al usar los formatos de longitud prefijada, la introducción de los delimitadores necesarios 
puede usar la mayoría del espacio que pretendemos ahorrar. A menudo, una elección 
cuidadosa de las longitudes de los campos al usar un sistema con tamaños prefijados, 
constituye una respuesta perfectamente adecuada. Debiéramos también considerar 
cuidadosamente el contenido de los registros: la información. ¿Realmente queremos 
discos de música clásica y música popular en el mismo fichero? ¿No sería mejor tener 
dos ficheros, de manera que pueda definirse cada uno de una forma sensata, sin tener 
que preocuparse de las peculiaridades de uno y de otro? 


¿Eres capaz de deducir del chiste, cómo se dice en inglés tanto limas como ficheros? 


En cualquier caso, nunca debiéramos olvidar que estamos trabajando con cintas magnéticas 
como depósito de respaldo para nuestro fichero, lo que es barato, en lugar de con 
memorias que no son tan baratas. De hecho, 5 Kiloctetos (Koc) de información, te 
costarán alrededor de 2 pesetas en cinta magnética. Es fácil de calcular -recuerda 
simplemente que a un ritmo de transferencia de alrededor de 200 octetos/segundo, 

se tardarán 25 segundos en depositar 5 Kocs en la cinta, y luego haciendo 25 : (60 

x 60) de lo que hayas pagado por tu última cassette C60. Probablemente te saldrá 

que mis cifras son pesimistas. 5 Kocs en memoria de semiconductores, es, incluso 

hoy, en que los precios de las memorias están bajando constantemente, todavía te 
costarán alrededor de 2.500 pesetas. No'creo que haya duda. 


Si lo mencionado anteriormente te suena como excusas plausibles de alguien que no 
quiere tener que trabajar duramente a menos que realmente le fuercen a ello, habrías 
intuido perfectamente mi talante al escribirlo. Los ordenadores se supone que están 
para hacer la vida más fácil, no más dificil. 


Una propuesta modesta 


Hay una particularidad molesta en el sistema de ficheros en cassette, tal y como 
lo hemos dejado: iniciar pregunta al usuario los tamaños del registro y de bloques, 
incluso para ficheros que existen ya. 


Modifica el programa de manera que se escriba un bloque "cabecera" al principio 
de cualquier fichero de salida, en que estén reflejados los detalles de tamaño de los 
registros y bloques de ese fichero. Luego, si se contesta a iniciar con un nombre de 
fichero de entrada, esa rutina ya no preguntará los tamaños de los registros y los 
buzones, sino que los leerá a partir del bloque cabecera de ese fichero de entrada. 
Es lo que en ordenadores mayores, decimos "ficheros con etiquetas" ("label"). 


(Para una propuesta menos modesta, véase el capitulo 17). 


Hay mentínas, condenadas mentiras, 
y... listados de ondenador. 


IO La estadistica de forma simple 


Servidores de la Salud Nacional, S.A. (SSA) emplea 24 personas a 2.00f pesetas por 
semana. El Director General consigue 5 millones al año. Cuando el Sindicato Regional 
de Empleados Servidores de la Salud (SRESS) fueron a la huelga pidiendo más paga, 

la dirección sacó una página: completa en Diario 16 indicando al público que el salario 
medio era de 11.844 pesetas por semana. En la entrevista, el director dijo textualmente: 
"Estos señores deben ir a trabajar inmediatamente y dejar de quejarse: 11.840 pesetas: 
es un salario semanal bastante justo". 


Las estadisticas pueden ser usadas, y mal usadas. Las medias pueden ser una medida 
correcta de lo normal, el valor tipico, pero algunas veces. Pueden también estar 
distorsionadas por la excepción singular que está completamente fuera de linea, como 
en este caso. El cálculo es correcto: 


did Nómina total semanal __24 x 2.000 + 200.099 = 9.924 


Número de empleados 25 


Pero la interpretación -"la mayoría de los empleados sacan unas 9.920 ptas."- obviamente 
no lo es. 


Esto intenta mostrar que la comprensión de las estadísticas básicas es digna de adquirirse. 
En este caso, SRESS publicó su propio anuncio, indicando que el indicador estadístico 

más apropiado no es la media, sino la moda: el salario más común, que en este caso 

es 2.000 ptas. Reconociendo la lógica impecable de este argumento, SSA botó a su 

director general, dando el control a un comité de empleados y subió sus salarios semanales, 
excepto para el presidente del comité que pasó a 18.000 ptas. semanales y que era 

el que sabía calcular medias y modas. 


Desde luego, no siempre sucede de esa manera, sino que más bien es el que podria 
ser presidente del comite el que sale botado de la empresa... 


PRESENTACION DE DATOS: HISTOGRAMAS 


No es éste el lugar para enseñarte teoria estadística. Lo que voy a hacer es escribir 
algunos programas que te dejan explorar ideas estadisticas sin tener que ir profundamente 
a las entrañas de las mismas. De esta manera, puedes empezar a percatarte de lo 

que significan en la práctica. 


Y una parte importante de estadistica concierne a la manera en que se presentan 
los datos. Siendo el Spectrum una bestia visual, me concentraré en dos formas standard 
de representación gráfica: el histograma y los quesos (sectograma). 


Un histograma muestra cuán a menudo aparece un determinado "valor". Por ejemplo, 
supongamos que lanzo un dado veinticuatro veces, y que los resultados obtenidos 


han sido: 
el 1 lo he sacado 3 veces el 4 lo he sacado 5 veces 
el 2 lo he sacado 6 veces el 5 lo he sacado 4 veces 
el 3 lo he sacado 5 veces el 6 lo he sacado 5 veces 


Mo ÁáKÁ 


Por tanto, el histograma tendrá seis barras verticales, numeradas de l a 6, con las 
alturas correspondientes. Asi la barra | tendrá de altura 3, la barra 2 de altura 6, 


o 

. YY 
mes IAS 
YY - IIS 
AAA 
Aaa 


Valor 


Figura 10.1 El histograma muestra el número de veces en que apareció un determinado valor al lanzar 
el dado. 


El valor promedio, o media obtenido en el lanzamiento, viene dado por 


1x3+2x6+3x5+4x53+5x4+6x5 
28 


= 3,57 


Observa cómo cada puntuación se multiplica por el tamaño de la barra. Si el dado 
no está trucado, a la larga, aparecerían números cada vez más iguales para cada 
uno de los valores de 1 a 6, con un valor medio que sería: 

1+42+3+84+5+6 


6 


=:35) 


En esta estadistica particular, la práctica concuerda muy bien con la teoría. Observa, 
sin embargo, que el valor más común en el experimento -la moda- ha sido el número 
2 que aparecio 6 veces. 


La moda te dice dónde está el punto más alto del histograma, la media te dice dónde 
debes trazar una línea vertical, de manera que se equilibren las barras que pasan 

por encima con las barras que quedan por debajo. Las barras no necesitan tener la 
misma altura; y la media sólo da una idea del valor "tipico" si los números no están 
muy esparcidos. En este caso, no están muy esparcidos o dispersos. 


Hablaremos sobre cómo medir el grado de dispersión posteriormente; por el momento, 
todo lo que quiero realmente es la idea de histogramas. Para acostumbrarte a ella, 
aqui hay un programa que presenta un histograma de lanzamientos de un dado, cuyos 
resultados vas imponiendo después de lanzar. Te dice, por tanto, cuál es el valor 
medio en cada una de las sucesivas etapas. 


A 


LET ini=500 
LET valin=1000 
LET hist=1500 
LET media=:2000 
LET wtat=0: LET num=0 
IM dé) 
GO SUB inmi 
GO SUB valin 
GO SUB hist 
GO SUB media 
60 TO 210 
REM inmi 
PLOT 103,175: DRAW 0,-160: DRAW 144,0 
PRINT AT ie di 1 23% 43 6* 
FOR i=1 TO £ 
PLOT 104+24*i,15: DRAW 0,-S 
NEXT i 
FOR i=0 TO 20 
PLOT 103,15+8*i: DRAW -5-S5=(i=10 OR i=20),0 
NEXT 1 
PRINT AT 0,9;"20";AT 190,9;"10" 
RETURN 
REM valin 
IF INKEY$<>"" THEN 6Gú TO 1010 
IF INKEY$="" THEN GO TO 1020 
LET c=CODE INKEY+-48 
IF c<0 OR c>ó THEN 60 TO valin 
IF c=0 THEN STOP 
LET dic)=d(ci+1 
FETURN 
1500 REM hist 
3 IF díc)=21 THEN INPUT “No me cabe histograma*px*+: STOP 
1520 FRINT AT 20-d(c),3=*c+10; INK c;* O” 
1530 RETUEN 
2000 REM media 
2010 LET num=num+1: LET wtot=wtot+c 
2020 LET a=.01*=INT (100=wtot/nium) 
2030 FRINT AT 2,1;"Media=" 
2040 FRINT AT 4,2;5a;'000' 
2050 FETLIEN 


Tecléalo y a rular. Saca un dado y lánzalo: pulsa el número que resulte (es decir, 

si sale un 4, pulsa la tecla 4. No necesitas teclear -pulsar ENTER después del dato-). 
Se va construyendo un histograma coloreado. Para cada número del 1 al 6, presenta 
cuántas veces has obtenido dicho número. También se imprime la media a medida 
que lanzas el dado. Si cualquiera de los números sale más de 2f veces, el programa 
se detiene con un mensaje (realmente tienes que presionar una tecla para conseguir 
que se detenga). Para terminar antes de eso,pulsa 0. 


A 


Verás sin dificultad cómo funciona este programa. La rutina principal está en las 
líneas 200-244. En ini se establecen los ejes y la escala; valin coge el valor pulsado; 
hist dibuja el diagrama; media la calcula y la imprime. 


El asunto de la parte entera (INT) en la línea 2020, es simplemente una manera de 
asegurar que sólo se imprimen dos cifras fraccionarias (o menos). Es un truco aprovechable 
(para tres cifras decimales, usa LET a =.P01 * INT (1000 * wtot/num) y asi 
sucesivamente, con un cero extra en ambas constantes para cada cifra decimal extra 
que desees. 


REPRESENTACION DE DATOS: SECTOGRAMAS 


Llamadas vulgar y adecuadamente "quesos", muestran cómo se divide el pastel entre 
los diferentes comensales. Se corta un circulo con sectores de área proporcional a 
los resultados. Ya sabes de qué se trata. 


El siguiente programa es un "cortador de quesos" automático. Recibe como entrada 
una serie de articulos con nombre (digamos conceptos de gasto) y produce un diagrama 
de sectores. Funciona mejor con 1f o menos partidas, y a poder ser, ninguna partidz 
debiera ser de menos del 3% del total. También funciona si no se cumplen estos 
criterios; pero por sí mismos, los quesos no serían aprovechables porque tendrian 
demasiadas porciones o porciones que apenas puedes ver. 


200 REM data in 
210 INFUT "Numero de porciones?':;n 
220 DIM ié*tn,2): OIM tn) 
230 DIM atln+1) 
240 FOR i=1 TO n 
250 INPUT "Nombre de porcion+";1%+(1) 
260 INPUT "Valor de porcion?* uti) 
270 PRINT AT 1,S;ié(12,4(012;*"000 
280 INPUT “Es correcto? s/n'*;q+ 
290 IF q+=*"n" THEN 60 TO 250 
300 LPFRINT i$(i),401): EEM solo si tienes impresora 
310 NEXT 1 
320 LET tut=0 
330 FOR i=1 TO nm 
340 LET tot=tot+. (1) 
350 NEXT i 
500 REM queso en porciones 
510 CLS : CIECLE 24,534,753 
520 LET anga=0 
530 FOR i=1 TO nm 
540 LET ana=ana+.(1)e2*PFI1/tot 
350 LET a(i+1)=ana 
PLOT 34,5 
ORAW ?3*C05S ang, TO*SIN ana 
REM ratulos de porciones 
LET u=.S*(alid+a(i+1)) 
FEINT AT 11-7ÉSIN uu, 10+7sC0S 51 
NEXT 1 
FEM rimala 
FOR i=1 TO nm 
FEINT AT i,21513*:"31%01) 
NEXT 1 
FANDOMIZE LUSE ¿50dd 


Las líneas 300 y 740 debieran dejarse fuera a no ser que tuvieras impresora y realmente 
quisieras estampar los resultados. Las líneas 280 y 29 proveen la manera de corregir 
errores si los cazas inmediatamente: si esta posibilidad te molesta, suprímela. (A 
propósito, no necesitas pulsar "s'" para la contestación si'': cualquier tecla excepto 

"n'" funcionará. Obviamente, la mejor es ADENTRO). 


Por ejemplo, teclea las siguientes cifras, que dan el producto nacional bruto (por 
cabeza) de los paises del Mercado Común en 1978 (los nombres de paises en inglés, 
por supuesto, para que vayas preparándote para el futuro). 


Número de porciones: 9 


Nombre de la porción Valor de la porción 


Belgium 
Denmark 
France 
Germany 
Holland 
Ireland 

Italy 
Luxembourg 
UK 


La Figura 10.2 muestra el diagrama de quesos resultante. Experimenta usando otras 


cifras, reales o imaginarias. 


Figera 10.2 Cómo se dividen el pastel en el Mercado Común... 


MEDIAS, MODAS Y TODO LO DEMAS 


Ya he explicado medias y modas (hay otra criatura que se llama mediana, pero no 

te confundas). La media es el valor "promedio", la moda (y puede haber mas de una) 
es el valor "más común", o sea, el que más veces sale. También he mencionado que 
la media es "típica", razonablemente, siempre que los datos no estén muy dispersos. 


Para medir la dispersión, los estadísticos inventaron un chisme llamado desviación 
standard. Es la raiz cuadratica media de las desviaciones sobre la media, si entiendes 


lo que he dicho. 


Tienen también una curva favorita, que llaman curva normal que se usa para suavizar 
los cantos de los histogramas: se elige de forma que tenga la misma media y la misma 
desviación standard, pero tiene la forma de joroba de camello. 


En lugar de presentarte un montón de matemáticas (lo cual puedes estudiar en un 
texto de estadistica y casi cualquiera valdrá) he escrito un programa que te permite 
producir tus propios histogramas, y luego te dice la media, la moda, la desviación 
standard, y como premio, también te pinta la curva normal correspondiente a ese 


histograma. 


Si tú (o tu hijo) está estudiando estadística en la escuela, este programa le ayudará 
(a él o a ella) para lograr percatarse de lo que representan estas cosas. 


LET ini=500 

LET dibuja=1000 

LET estadistica=:2000 

LET normal==900 

DIM ac24) 

LET paso=3 

GO SUB inmi 

GO SUB dibuja 
, estadistica 
normal 


REM inmi 

CELS 

FLOT 15,145 

OFRAW 0,-150 

[RAW 240,0 

FOR t=1 TO 2d 

FLOT 15+10=t,15: OEFRFAW 0,-=,2=(t=10 0 t=20) 
NEXT t 

FOR t=1 TO 15 

FLOT 15,15+10=*t: OFRAW -3-=3=*(t=10),0 

NEXT t 

FEINT OVER 1;4T 21,05" — [13 blancos] 10 [li blancos] 
FEINT AT 7,01" 

FEINT AT 5,0:*"0" 

FETLIEN 


CS 


PR AN 
> OS So oSooo> 


Riiie 


Do 


FEM dibuja 


2 LET h=15 


FOR i=1 TO 2d 
IF INKEY3$<3** THEN 60 TO 1020 
IF INKEEY+="* THEN 50 TO 1030 
LET k*=INEEYS 


5 LET h=h+10*(CO0E k$-53) 


IF híi15 THEN LET h=15 

IF he145 THEN  LET h=145 

LET acio=(h-15)/10 

PLOT 15+10*i-10,15: OFRAW 0,h-15: OFRAY 10,0: ORAW 0,15-—h 
NEXT i 

RETUEN 

REM estadistica 

LET tut=0: LET norm=0: LET m=0: LET m.=0 
FOR i=1 TO 24 

IF alidóms THEN LET mu=a(i: LET m=i 
LET tot=tot+i*a(i) 

LET norm=norm+a(i) 

NEXT i 

LET av=tot/norm 

PRINT AT 0,2;'"Media= '¡aw 

FPRINT AT 1,23;'"Moda= *;m 

LET std=0 

FOR i=1 TO 24 

LET std=std+a(i=*(i-av)*(i-a) 

NEXT 1 

LET std==0R (std/nmorm) 

LET std=.01*INT (100=std) 

PRINT AT 2,23;"Desviacion Estandar= "¡std 
RETURN 

REM normal 

FOR i=08 TO 240 STEP paso 

LET y=EXP (-(.5+i1/10-av)=(.5+1/10-av)/(2estdestd))/ 
(std*SOR (2xPI)) 

LET y=y*tut 

IF y>=150 THEN 650 TO 3060 

IF i=0 THEN PLOT i+15,v+15 

IF 1>0 THEN DRAW paso, vy+15-PEEK 23673 
NEXT i 

RETURN 


83 


USANDO EL PROGRAMA 


El programa está diseñado para que sea fácil establecer los histogramas de comprobación; 
y como consecuencia, los datos se imponen de forma amistosa y poco ortodoxa y 

hasta puede enfurecerte hasta que te acostumbres. Funciona de esta manera: las 

barras en las posicionesl-24 se teclean sucesivamente. Inicialmente, la altura es f 

(y siempre será entre Q y 16). La siguiente altura de barra es 5 - kl veces mayor 

que el número de la tecla k de la fila superior que se haya pulsado. Es decir, las 

teclas numéricas controlan el cambio en altura de una barra desde uma columna a 

la siguiente, como presentamos a continuación. 


Tecla Efecto sobre la altura de la barra 


4 más pequeña 
3 más pequeña 
2 más pequeña 
l más pequeña 
igual 

l más alta 

2 más alta 

3 más alta 

4 más alta 


N 0 YN 0 uN — 


Por ejemplo, rúlalo y luego pulsa (no teclees) las teclas 
556667852344455555 


para obtener el resultado de la figura 10.3. 


devyviation 


Figura 10.3 Curva mormal que corresponde a un histograma con bastante precisión... 


Inventa tus propios histogramas, y comprueba que: 


l. — La media es un valor "promedio" razonable. Si cortaras el histograma una vez 
forjado en una lamina metalica, pesaria igual que un rectangulo con altura igual 
a la media. 


La moda es el primer valor de "pico". (Los otros lugares que también tengan 
esa altura, son también modas. Pero el programa no observa nada más que el 
primer pico; sería fácil cambiar eso). 
Los histogramas que están más "dispersos" como 
SN EE NO RO SO E E E RI E 
tienen mayor desviación standard; los histogramas que están más "amontonados" 
O E E E E E E SES ES ES e EA ES: 
tienen desviación standard menor. 
La curva normal es una aproximación razonable a aquellos histogramas que tengan 
sólo un pico, no estén demasiado dispersos y sean bastante simétricos... 


Pero puede producir confusión total si se aplica a otros histogramas, por ejemplo, 
para el que tiene dos jorobas como 

DEAD IRALA DM IRA SAI 
que da el resultado de la figura 10.4. 
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Figura 10.4 ...y bastante poco adecuada. 


Proyecto 


Cambia las lineas 1045-1P60 de manera que lo que teclees sea directamente las alturas 

de las barras. (Es fácil de hacer: la única razón de que usaras la otra manera en 

el programa es que produce los histogramas muy rápidamente, y sin tener que pensar 
mucho, una vez que te acostumbras a ellos, de manera que es ideal para los experimentos. 


Experimento 


Lanza 4 dados, y anota el total. Hazlo 100 veces. El histograma que resulte, dálo 
como dato de entrada del programa anterior (por medio del proyecto) y observa cuales 
son los resultados. ¿La curva normas se adapta estrechamente o no? 


Simulación 


Usa los números aleatorios del Spectrum para simular el lanzamiento de 4 dados: 
repite el analisis estadistico. 


Un poco de atención a los detalles 
puede hacer. manavíillas -tales como 
traducir La Spectrumática en algebra 
normal... 


Il Mejorando la imagen 


Muchos programas pueden resultar más atractivos, estableciendo caracteres definibles 
por el usuario para conseguir una representación más precisa del efecto buscado. 
Vamos a plantear un proyecto según esas miras, que acepte polinomios de varias 
variables x, y, z, en la forma que el Spectrum acostumbra, y hace que parezca algebra 
vulgar. (Sino te gusta el algebra, sigue conmigo, lo importante sigue siendo la 
computación). 


En el álgebra ordinaria, los polinomios se escriben asi: 


ax? + bx +c 
2x? + 5y” 
a? + b?* 4 c?- 3abc 
Pero el Spectrum usa "*" para la multiplicación, en lugar de escribir los simbolos 


uno a continuación de otro; y también usa "+" para la exponenciación, en lugar de 
utilizar superindices; con lo que resulta: 


a*xt2+b*xw<c 
2 *x43+ 5% y17 
ar3 + b43 + c43-3*a*b*c 
El primer paso es desarrollar caracteres para los exponentes l, 2, ..., 9, f. La figura 


11.1 muestra uno de los posibles trazados. Tecléalos como caracteres gráficos de 
la "a" a la "j", en la manera usual (Fácil Programación, pág. 49). 


Figura 11.1 Trazado gráfico de exponentes. 


Luego teclea el siguiente programa: Impón una expresión algebráica según Spectrumática 
y pasará a ejecutar tres tareas: 


l.  Quitará todos los asteriscos. 
2. Convertira todos los números que vengan despues de *, en los exponentes definidos. 
3.  Quitará todas las + una vez que haya efectuado la tarea 2. 


S LET poten=:00 
¿2 LET pradu=4090 
LET mostra=1000 
INPUT *Expresion a “MAQUILLAR“*",,,e% 
LET 1=LEN ej 
LET fi="" 
LET i=1 
IF e£cid="?* THEN 650 TO poten 
IF estio="=*" THEN (60 TO produ 
LET fi=fi+eFci) 
LET i=1+1 
IF 131 THEN. 60 TO mostra 
60 TO 50 
FEM potencias 
LET j¡=i+1 
12 IF ¿21 THEN. 560 TO mostra 
CODE =+Cj5) 
2id2 0% c357 THEN.” 60 TO 500 


LET fé=fi+CHEE (0+95+10=*(c=d3)) 
LET ¡=j¿+1 

IF 151 THEN” 60 TO mostra 

0 TO 212 

LET i=j 

60 TO 50 

REM productos 

LET i=i+1 

0 TO 50 

FEEM presenta resultado 

FEINT "Basic :D'¡ez' "Algebra 


COMPROBANDOLO Y PONIENDOLO A SALVO 


Ensaya con las expresiones enumeradas anteriormente, en forma Spectrumática, que 
es el dato de entrada e$; comprueba que aparece el resultado correcto. Ahora ensaya 
algunas otras expresiones algebraicas como: 

2*x*y*z- 17 * a+t552 

m477 + n+88 

atb*crtdterf*%g+45 *h4999 + 32 
y las que quieras. 
El programa no traga con todo: observa lo que hace con 2 * 2, por ejemplo! Pero 
ilustra la idea que queremos. 


Para guardar este programa en cinta de forma aprovechable, debemos hacer un poco 
mas de trabajo, porque los graficos definidos por el usuario no quedan guardados 
automaticamente. Primero, debemos determinar donde se encuentran. 


En el Spectrum de 16K, comienzan a partir de la dirección 3260f. Pero puede que 
lo hayas cambiado (por medio de la variable sistemal UDG, que reside en la dirección 
23675-6). De manera que puede que prefieras determinar la dirección precisa mediante 


PEEK 23675 + 256 * PEEK 23676 
Sin embargo, hay una manera más fácil, porque el carácter gráfico correspondiente 
a "a" tiene que comenzar en el área UDG. Por lo tanto 


USR "qn 


funcionará. (Expon en pantalla ambos, y lo verás). 


Rebobina tu cinta hasta el lugar en que quieras comenzar a grabar, y añades una 
instrucción más como preparación para lo que viene a continuación, a saber 


1 LOAD *exp*CODE USE *a*,30 
Luego guarda en la cinta todo el programa, usando 
SAVE "algebra" LINE 1 


con lo que tendrá un arranque automático comenzando en la línea 1. 


A A, 


Todavia no has acabado: tienes que usar ahora la grabación de áreas de octetos para 
que se conserven sus graficas: 


SAVE "exp" CODE USR "a", 80 


Con esto, su ordenador recoge los 89 octetos del área de gráficos definibles por usuario, 
se comienza a partir de USR "a", y los deposita en la cinta. Hemos dicho 80 porque 
cada carácter ocupa 8 octetos, y tenemos 10 caracteres, de manera que el total es 

8 * 10 - 80. Ahora ya sabes que la línea | añadida, invierte este procedimiento para 
recuperar esos octetos de la cinta y trasvasarlos a la memoria. 


Si ambos han sido guardados en cinta, rebobina hasta la posición inicial, y teclea 
LOAD "algebra" 
Te saldrán los bufidos y pitidos habituales y las bandas rojas/azules/amarillas, y todo 
lo demás y el mensaje 
Program: algebra 
Deja la cinta marchando. "Algebra" automáticamente empezará por la instrucción 
de la línea 1; lo que provoca automáticamente que se recuperen de la cinta los gráficos 


definidos por el usuario y se carguen en memoria. Eso producirá más bufidos y pitidos 
y bandas, y el mensaje 


Bytes: exp 


después de lo cual, "algebra" pasará a la siguiente línea, y continuará funcionando ' 
como ya sabiamos. Detén la cinta y ya puedes pasar adelante. 


Este es un ejemplo de cómo encadenar programas depositados en cinta, aprovechándose 
de que los comandos LOAD pueden usarse como instrucciones en un programa. Para 
ver otro ejemplo, pasa al capitulo 15; Cambiando el Repertorio de Caracteres. 


Proyectos 


Modifica "algebra" para que desarrolle productos de números, tales como 23 * 45, 
en lugar de pegarlos sacando 2345 (lo que es erróneo) tal y como hace la presente 
version.. 

Modifícalo para que expresiones como x * x se conviertan en x?% 0 x *x * x 

y x * x?* en x?, y demás. 

Modifícalo para que ordene las variables alfabéticamente, de forma que abcbab 
se convierta en aabbbc'o (mejor) a*b?*c. 

Modifícalo para quitar cualquier término del polinomio que resulte multiplicado 
por Ú. 

Imagina una expresión con la que tu versión del programa modificado siga 
comportándose erróneamente; y vuelve a modificarlo para que también pueda 
superar ese obstáculo. 

Como si fueras ordenador, VAYA al punto 5. 


Hay programas que hacen cosas 

por 4 mismos, y hay programas 
que te ayudan a escrebín otros 
programas. Estos últimos se 
denominan utensilios. Pon ejemplo: 


I2 Renumerando lineas 


Tener que aderezar las lineas de un programa, puede ser una faena tediosa, que al 
final nadie hace... a no ser que dispongan de un utensilio de programación para 
hacerlo (también se llaman programas de utilidad, pero todos los programas tienen 
su utilidad). Puedes comprar programas que renumeran lineas o puedes escribirlos 
tú mismo ahorrándote algo de dinero, posiblemente con la contrapartida de 

tener algo menos versátil. 


El programa que te presento es un compromiso. Se ha escrito sobre la base que éste 
no es un libro de Código Máquina, por lo que el programa tiene que estar en BASIC; 

y dado que BASIC es inherentemente lento, el programa tiene que ser lo bastante 
rápido como para que realmente se use. Eso, a su vez, significa que tiene que ser 
bastante rudimentario. En especial, sólo renumera las líneas: no renumera 
automáticamente los números que son destino en instrucciones de ida,o de ida y vuelta 
(GO TO o GO SUB). Ya te contaré algo sobre esto, después de examinar el programa. 


NUMEROS DE LINEA EN LOS PROGRAMAS 


Igual que la mayoría de los utensilios, éste requiere también saber lo que pasa en 

las entrañas del Spectrum cuando se pulsan sus teclas. Recordarás (Fácil Programación 
pág. 93) que tu programa queda grabado en la memoria de lectura-escritura como 

una serie de caracteres|octetos, comenzando a partir de la dirección señalada por 

la variable sistemal PROG y terminando inmediatamente antes de la dirección señalada 
por VARS. Consultando el Manual, descubrirás que puedes hallar esas direcciones 
mediante los comandos: 


PROG: PEEK 23635 + 256 * PEEK 23636 
VARS: PEEK 23627 + 256 * PEEK 23628 


También puedes descubrir que cada línea en un programa está grabada según el formato: 


NS NI LJ LS | codificación para esas instrucciones ener | 


siendo NS y NJ los octetos senior y junior correspondientes al número de línea, y 
LJ y LS los octetos junior y senior que indican el total de caracteres que hay en 
esa linea. 


Especificamente, si el número de línea es n, tenemos que 
NS = INT (n/256) 
NJ = n- 256 * NS 
e igualmente, es válido para LJ y LS. Así para la linea 700, tendremos: 
NS = INT (700/256) = 2 
NJ = 700 - 256 * 2 - 188 
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MA 


y esos son los primeros dos octetos grabados en la celdilla de memoria en que se 
encuentra la linea 700. 


Si cambiamos NJ, digamos a 198, engañamos al sistema operativo, haciéndole pensar 
que esa línea es realmente la linea 710 (- 2 * 256 + 198). Eso nos sugiere cómo renumerar 
las lineas. 


Escrutamos todo el área del programa, examinando cada vez que aparece el carácter 
ENTER (cuyo código es 13). Una vez que encontremos uno, sabemos que los siguientes 
dos octetos son el numero de linea. HINCAMOS ahi el valor que queramos. 


PRIMER INTENTO 


Si escribes una rutina que simplemente haga eso, te toparás con algunos peros. Primero, 
fracasa en la renumeración de la primera línea, porque no esta detrás de ningún código 
13. En segundo lugar (y no es fácil de ver por donde voy) si sucede que uno u otro 

de los octetos LS, LJ es 13 ¿qué ocurre? 


Estos fallos se remedian fácilmente: renumerar la primera línea como curso de acción, 
y saltarse los octetos correspondientes a LJ y LS. 


Supongamos por el momento, que quieres que los nuevos números comiencen a partir 
de 1f y vayan de 1f en 10. Eso nos llevaria a un programa mas o menos asi: 


LET prog=FEEK : +26 PEEL , 
LET wars=FEEK 27+206*PEEK 23678 


LET ms=0: LET nmj=10 
FOR i=prog TO .ars-1 
IF i=proga THEN FOKE i,ns: FOKE i+1,0n: 
LET i=i+d: LET nj=nj+10: IF nj:=256 
THEN LET nj=ny-256: LET ns=ns+1 
IF FEER i=13 THEN FOKEE i+1,ns: FOKE i+2,mI: 
LET i=i+5: LET nj=nj+10: IF nj:=256 
THEN LET nj=nj-256: LET ns=ns+1 
10640 NEXT 1 


Ahora teclea esto; precedidos por algunos números de línea, como comprobación del 
programa: 


l REM 
2 REM xxxx 
17 REM 


y demás. Mándale que vaya a la linea 1000. 
Lo siento querido: te tropiezas con un mensaje de error: 
N Statement Lost, 1060: 1 
Desde luego, has perdido una instrucción, la 106, pero ¿por qué? 


A listar y a trabajar duramente. 


SEGUNTO INTENTO 


Desde luego... este programa idiota acaba renumerandose a si mismo. Una vez que 
ma 


haya renumerado la 1030, la Instrucción en 1969 le dice que otra "i", con lo que 
vuelve a la 1060 que ya no existe Más.. 


Nh 
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Bien; también se remedia fácilmente: cesa de renumerar antes de llegar a la propia 
rutina de renumeración. La manera fácil es cambiar la linea 1030 sustituyendo vars-] 
con vars-lon, siendo lon la longitud de la rutina de renumeración en octetos (lo cual 
determinas usando vars-prog). Con esta rutina particular, lon = 385, por lo que la 
línea 1939 sería: 


1939 FOR ¡ = prog TO vars - 385 


y ahora funciona. Y para ser BASIC, relativamente rapido. Tarda unos 20 segundos 

en renumerar un programa de 50 líneas, lo cual no es instantáneo pero sí bastante 
rápido como para ahorrarte un montón de trabajo. (Para una rutina en Código Máquina 
simple e igualmente limitada, que sí es instantánea, véase Código Máquina y Mejor 
Basic pág. 159, o Código Máquina del Spectrum Capitulo 16). 


TERCER INTENTO 


Ahora bien, puede que se te antoje que posiblemente estés siendo un poquito obtuso. 
Esos octetos LS y LJ que marcan la longitud de la linea, son explotables: en lugar 

de ir escrutando laboriosamente hasta encontrar el código 13, podríamos saltar 
inmediatamente a los siguientes octetos que indican el número de línea, si añadiéramos 
la longitud de la línea (que es sumar o restar un octeto o dos!). 


Puede que se te ocurra que quizás no se ahorre mucho tiempo a causa del tratamiento 
requerido para la suma y demas. La única manera de determinarlo es intentarlo. 


Aquí hay un programa siguiendo esas directrices: y claramente tiene una ventaja 
-es más breve. 


1010 LET ¡=FEEE 
LET nms= Ya 
LET fin= 23627+256%PEEK, 
IF is=fin THEN STOP 
PORKE i,ns: FOKRE i+1l,mi: 
LET nj=nj+10: 
IF njs=256 THEN  LET nj=nj-25%4: LET ns=ns+1 
LET 1=1+FEEE (1+21+256*PEEK (i+23+d: 
60 TO 1020 


La variable fin es desde luego la vieja variable wars, menos la longitud (285) de esta 
rutina. 


Para ver cuál es el método más rápido, las cargaremos en un programa suficientemente 
largo, usando el comando MERGE, y cronometraremos la ejecución de la renumeración 
(necesitarás programas con números de línea menor de 1000 para evitar volver a 
escribir parte de la rutina; por lo tanto: véase a continuación). Haz esto antes de 

ver el resultado o como minimo, haz una aproximación lógica... 


En mi pasada de prueba, con un programa de 50 líneas, los tiempos logrados fueron: 


Primera rutina: 20 segundos 
Segunda rutina: l segundo 


Esta mejora ulterior con resultados impresionantes, demuestra cuán importante es 
no parar de pensar sobre un programa, simplemente porque funcione. 


VERSION DEFINITIVA (2?) 


Pero, ¿todavia no hemos acabado?. La tarea final es refinar la rutina para maximizar 
su utilidad. ¿Que criterios debemos satisfacer? 


La rutina deberá ocupar tan poca memoria como sea posible. 

Deberá escribirse en tan pocas lineas como podamos. 

Esas lineas debieran colocarse en alguna parte donde raramente, si alguna vez, 

se usan en un programa normal. Fallando lo del Código Máquina y lo de bajar 
RAMTOPB, el lugar donde ponerlas es en las líneas 9995-9998. (Exceptuando el 

9999 para aquellos casos en que atacas una ampliación del programa, usando 

9999 VAYA a donde sea...) 

Los nombres escogidos para las variables, deben ser de los que no usas normalmente, 
de manera que siempre pueda mezclarse la rutina en otro programa con cierta 
garantía de que no haya conflicto de variables. 

Sería bonito comenzar y acabar en lineas arbitrariamente elegidas, y poder señalar 
incrementos y valores de comienzo de los nuevos números que también fueran 
arbitrarios (lo primero exigiría comprobaciones extras que costarán tiempo, 

y yo no lo incluiría. Lo segundo es esencial: puede que quieras incluir una de 

tus rutinas favoritas en un programa y haya solape en los números de línea: 

por eso primeramente quisiera renumerar la rutina a agregar). 


Teniendo este criterio en cuenta (y observando que no es posible lo de todo para 
todos; que hay conflictos que exigen compromisos) yo terminaria con algo como: 


INFUT *Ini,pasao” pol poza 


(1/2 


HISE*ÑPEEK 
S<TOF 
FOÉE o+1,od: LET od=od+o; 
THEN LET od=0d-25 
MPEER (a+ 20+ 256 FEEK 
60 Tú DIVA, 


Esta tardó un poquito más -unos 3 segundos en un programa de 59 líneas. Es el precio 
pagado por un poquito más de flexibilidad. 


La razón de todas esas o's, es que, desde luego, apenas nunca uso "o' para variables 
en los programas normales, porque se las confunde siempre con el "cero". 


Esta es una rutina genuinamente utensilio. La idea es conservarla en cinta con un 
nombre como "renum", y antes de comenzar a escribir un programa, cargarla en la 
parte superior del área de programa (por eso tiene los números de linea tan altos). 

Con ella escribir tu programa y maquillar sus números de línea, llamando a la rutina 
renum, usando SALTO al 9994; arreglar los GO TOs y GO SUBs manualmente; y cuando 
estés satisfecho con el programa, quitar las líneas 9994-9998 y guardar el programa 
final. 


Si has olvidado cargar renum al empezar, siempre puedes usar el comando MERGE 
posteriormente para congregar la rutina con tu programa. 


RENUMERACION DE BLOQUES 


Este programa está bien si quieres producir listados que vayan 10, 20, 30... siempre 
y sin vanos -d 1P2, 104, 106,... para ser diferentes- pero eso no es siempre lo que 
deseas. Desde luego, maquilla el listado; pero puede que lo haga menos aprovechable. 


Si has leido las páginas 87-92 de Fácil Programación, sobre buen estilo, sabrás que 
una forma de producir programas "civilizadamente" es desglosarlo en bloques, siendo 
cada bloque una subrutina. Usar nombres de bloques en lugar de números de línea 
(tales como LET bloque = 1400); y comenzar cada bloque sobre un número de línea 
redondo (1000, 2000, etc. dependiendo de los bloques con los que tengas que tratar). 


Al renumerar desde el principio hasta el final, de alguna manera distorsionamos esta 
estructura tan cuidadosamente producida. Por otro lado, cuando estás desarrollando 

el bloque 1000 te encuentras rápidamente que estás quitando las pifias en líneas como 
1035, y posteriormente en la 1432 y en la 1033, etc.; y o bien terminas todo con 
mala apariencia; o puede que incluso llegues a necesitar insertar una línea entre el 
1946 y el 1947, y ya sabes que al intérprete BASIC no le gusta ni el 1046'/, ni el 
1046,5. 


De forma que lo bueno sería renumerar dentro de un bloque (donde, aprovecho para 
decirte, que los problemas de SALTOS son menores, y si el programa está bien 
estructurado apenas ni existen). La siguiente rutina hace esto: le das las lineas de 
principio y fin de bloque, el nuevo número en que quieres que comience, y el nuevo 
incremento: ella hace el resto. 


Si le pides que renumere un bloque a partir de un número de línea más bajo que el 


presente, saca el pitido y pregunta de nuevo el dato. (Esto se hace, porque el sistema 
BASIC no es feliz si le desordenas las líneas del programa en la memoria). De igual 
manera, si terminas de renumerar el bloque con un número de línea que es mayor 
que el siguiente,vuelve a pitar y continúa renumerando hasta el final. 


La rutina tal y como está escrita, reside en la linea 9000. Si directamente tecleas 

el comando LET renum = 9090 puedes usarla tecleando GO TO renum. Desde luego, 
sería preferible un número mayor de linea como 9994, y también deberias cambiar 

las variables a otras menos comunes, como hemos hecho antes: aquí las hemos evitado 
para conseguir más claridad en el programa. 


STOF 

INFUT *Comienzo/Fimal de bloque'*;stt,end: 
INFUT *Comienzo/Faso de numeracion*pinst, imc: 
IF mst í stt THEN BEEF .1,0: GO TO 000 


IF 2O6*PEEE 1+FEEK C(i+1)<stt 

THEN 60 SUB 030: 560 TO 2040 

IF 256*PEEFR 14+FEEK (i+12sen0d 

THEN 60 TO 70%0 

FPORE 1,ns: FOKE i+1,n3:2 LET nj=njy+imocs 
IF mi 56 THEN LET nj=nj-256:1 LET ns=ns+1 
GO SUE 030: Ga TO 7050 

LET 1=1+FEEK (1 De (1+33+d: EETUEN 
IF 2S54ens+nj-10 FEEFE (i+1) 

THEN  BEEF .1,20: = 2983: 60 TO 9060 


También éste es un utensilio practico, especialmente al congregar programas y 
rutinas usando el comando MERGE. 


Proyecto 


Piensa un poco sobre cómo ocuparse automáticamente de la renumeración de los 

saltos GO TO y GO SUB. (No hemos hablado mucho de esto, en parte debido a la pereza, 
y en parte a que el resultado es muchísimo más lento, y principalmente, porque usando 
"subrutinas con nombre", que es una buena práctica en programación, es preciso 

pensar bastante más. Por ejemplo, en COLORERO, la subrutina prueba está en la 

línea 2000, y queda establecido a inicializar la variable prueba = 2000 en la línea 

20. Si renumeraramos, no tendriamos que cambiar la línea 250 que nos desvía con 
vuelta, a esa rutina (GO SUB prueba); lo que tendríamos que hacer es cambiar en 

la línea 20 el valor que hemos dado a la variable prueba. E incluso aunque te preocupes 
de esto, hay percances con los saltos a subrutinas y puede terminar todo embrollado). 


Las rutinas no están protegidas contra programas que usen números altos de línea 
(por encima de 9999). Hazlo. (Lo hará todo un poco más lento, pero ¿merece la pena?). 


No sólo es samplemente hermoso 
-fambién es hermosamente sample. 


13 Polígonos 


Basicamente es una idea simple y directa, pero sólo puedes hacerla por ti mismo, 

si te encuentras a gusto con la trigonometría (SENO, COSENO, TANGENTE, y demás). 
El objetivo es desarrollar los gráficos del Spectrum para que permita la construcción 
de poligonos -y de criaturas imaginativas de la misma ralea. 


Un polígono, lo que recordarás sin ninguna duda, es una figura hecha por segmentos 
rectos. En cierto modo, eso es todo lo que puede dibujar el Spectrum, pero si los 
segmentos son muy cortitos y se empalman, dan como resultado curvas. Por eso es 
por lo que un dibujo en alta resolución de Bo Derek no aparenta que su figura 

se obtenga de líneas rectas.. 


Bueno, volvamos al Spectrum. Un poligono es regular si todos sus lados y todos sus 
ángulos son iguales, por lo que es simetrico. Para dibujar un poligono regular de n 
lados, dentro de un circulo de radio r, cuyo centro está en x, y, usamos el programa: 


INFUT "Numero de lados?";n 

FOR i=0 TO rn 

LET a=x+reCOsS (2i2F1/nm0: 

LET b=v+reSsIN (2xi*PI/n) 

IF i=0 THEN FLOT a,b 

CRAW a-FPEEK 23677,b-PEEK 23678 
NEXT 1 


Tal y como está, hay peligro de salirnos de la pantalla, de forma que agregas: 
S IF rex OR rey DR rs255-=x OR re175-y THEN  RETUEN 


He puesto la condición de REGRESO, porque estoy pensando usarlo como subrutina; 
por lo que tambien necesitaremos 

v0 RETUEN 
para que todo quede perfecto. Muy bien, pero hasta ahora no veo ningún uso para esto. 
Asi que añade: 


1900 INFUT "Fadio” 
110 INFLUIT "Centro 
1:20 CELS 

130 60 SUB S 


Ensaya asi, pero recuerda comenzar yendo a la 1fPf en vez de ejecutar el programa. 


Bien, pero pronto resulta aburrido. Sin embargo, podemos hacer los resultados mucho 
más bonitos usando bucles. Por ejemplo, "delecta" la línea 10 y teclea: 


00 LET n=3:1 LET x=127: LET y=37 
TO 25 STEP S 


lo que da la figura 13.1. 


Figura 13.1 Pentágonos concéntricos. 


Si éstas te gustan, quitate de encima la de HAGA n=5 en la línea 20f, y añade: 


205 INFUT *Numero de lados*?*'*,n 
de manera que puedas ensayar numeros diferentes. Mándale ahora que vaya a la 20f. 


Ensaya con n = 50: son circulos bastante exactos (aunque mucho más lentos de como 
salen con el comando CIRCLE). Eso es lo que quería decir con la observación sobre 
Bo Derek... 


ROTACIONES 


Después de un rato, incluso esto aburre. Todos esos deprimidos poligonos apuntando 
siempre a una misma dirección. Añadámosle rotación: 


206 INFUT *Rotando?*jro 


y vamos ahora a girar todos ro grados, para lo que cambiamos la linea 30 para que sea: 


30 LET asx+relOs (2xi*P]/n+ro*P1/130): 


LN LET b=vtr*eSIN (2=i*F1/n+tro*P1/180) 
z A e e, 


Vamos a hacer cosas más imaginativas: 


LET n=: LET 
ELS 
FOR r=S TO 85 STEP S 
LET ro=r*z 
60 SUB S 
NEXT r 
Usa GO TO 300: te saldrá la figura 13.2. Cambia el n = 7 para variar, a un comando 


INPUT. Cambia el r * 2 de la linea 30 para que sea r, o bien r * 3, o lo que te 
apetezca. Incluso r * r / 50 es bastante bonito. 


Figura 13.2 Heptágonos rotantes. 


Mirando a la línea 30 en su presente forma, no puedo evitar el preguntarme lo que 
sucedería si las posiciones donde punteo, coordenadas a y b, fueran cambiadas en 
cantidades diferentes. En otras palabras, cambia la instrucción para que sea: 

30 LET a=x+r*COS (2*i2PI/n+ro1/1830): 


LET b=v+r*5IN (2=1*PI]/n+r02/150) 


donde rol y ro2 se imponen por teclado usando: 


206 INPUT *Eotando?*prol,roz 


Ensaya esto empezando por GO TO 200. Es como si se torcieran los polígonos. Ahora 
adapta la línea 320 de la rutina que comienza en 300, para que sea: 


320 LET rol=r*2: LET roz=rs3 


La cosa se esta complicando ahora, y los dibujos se están volviendo menos predecibles. 
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LADOS CURVOS 


¿Y ahora qué más? Bien, podemos usar el comando de dibujar para hacer curvas, 
así como para hacer rectas (Facil Programación pag. 34). Lo podemos añadir como 
una opción; cambia la línea 5 a: 


50 CFÁW a-FEEK 234677 EEK 23478, cura 


y arréglatelas para que de alguna manera se imponga por teclado la magnitud de 
la curva, tal y como con: 


207 INPUT "curna?tgcuria 


Verás que curvando entre -4 y +4 aproximadamente, funciona mejor; y yo prefiero 
los valores negativos. 


Experimenta durante un rato con GO TO 200. Ahora pon las curvas dentro del bucle 
de la línea 300. Por ejemplo, añade: 


315 LET curna=-r/25 
y cambia la 320 a 
320 LET rol=r/2: LET roz=r/3 


Otra vez se está complicando demasiado, ahora... 


ESTRELLAS 


Si cambias la línea 20 para que (digamos) 
20 FOR 1=0 TO Zen 


puedas imponer valores a n = 5/2, 7/2, etc. obtendrás una estrella de 5 o de 7 puntas. 
Con 


¿0 FOR 1=0 TO en 
puedes ensayar n 5/3,  *. 8/3, etc.; y en general con 
20 FOR 1=0 TO koup 


valores de la forma n = (numero entero)/k producen criaturas con forma de estrella. 
(Necesitas imponer el valor de k por teclado o asignarlo por instrucción). 


Puedes añadir comandos de color; usando OVER 1... La variedad es infinita. Aqui 
hay uno bastante bonito para terminar: tecléalo y empieza con GO TO 400. La figura 
13.3 muestra el resultado. 


Cambia primero la línea 20 de la subrutina a: 
¿0 FOR i=0 TO en 


y luego añade: 


400 LET n=11/=3: LET «=127: LET y=25 
405 FAFER 0: BOROER 0: OVER 1: CLS 
410 LET roi=0: LET roz=0 

415 FOR r=5 TO 75 STEF 10 

d13 LET curvua=-=r/25 

420 INE 1+r/14 

430 60 <UB S 

440 NEXT r 


A 


a 
Y 


Figura 13.3 Lados curvos 5!/¿-gones. 


Obviamente puedes usar estas rutinas dentro de otros programas. Por ejemplo, no 
hemos intentado en absoluto cambiar el centro x, y. Mira a ver si puedes dibujar 
ringlas 4 x 4 de pentágono; una línea que solape heptágonos; una línea curva de 
hexágonos que crece más y más y también están girados; un trazado aleatorio de 
polígonos de lados aleatorios coloreados aleatoriamente y mezclados aleatoriamente 
con estrellas... 


Pero si has seguido conmigo hasta este punto, no creo que necesites que te urja para 
que hagas cosas por ti mismo. 


Bajó a La cripta, encontró el documento, 
Lo abríó, y tuvo que recurrir a la... 


14 Criptografía y Criptoanálisis 


El arte de cifrar palabras y conseguir, códigos, y de descifrar o decodificar los resultados 
sin saber cuál es la tabla de conversión de códigos. 


Es un triste comentario sobre la condición humana, que el uso más temprano que 
se recuerda de mensajes codificados, fue para evitar interceptación por el enemigo, 
y se remonta a los lacedemónicos en el año 400 a.d.C. Ya el primer libro sobre el 
tema fue En Defensa de las Fortificaciones y lo escribió Tacticus en el siglo cuarto 
a.d.C. 


El problema de la conversión -decodificar un mensaje sin saber el código- tiene mayor 
importancia que simplemente la militar. Los historiadores necesitan saber los mensajes 
que se pasaron entre los comandantes durante la Guerra Civil Americana; y los lingúistas, 
descifrar manuscritos antiguos, tales como los jeroglíficos egipcios o los' lineales de 
Micenas. Alguno de éstos puede que no estuvieran codificados entonces, pero si lo 

están ahora. 


El ordenador puede ser un instrumento muy potente para el criptoanáalisis, porque 
4 
puede desarrollar "aclaratorio" con ensayos y errores a gran velocidad. (Los ensayos y 
errores que no sean aclaratorios ocupan demasiado tiempo, incluso en el Cray-1. 
Tu Spectrum no soportaria una pasada). 


Los códigos más simples, son códigos de sustitución, en que cada letra del mensaje 

original se convierte a otra letra de un alfabeto arbitrariamente desordenado, segun 
la posición; para mantener este capítulo dentro de sus límites, nos concentraremos 

sobre esto. 


CODIGOS DE SUSTITUCION 


Por ejemplo, supón que el mensaje es: 
"Mi carro me lo robaron" 
y que el código está definido por: 


abcdefghijklmnopqrstuvxyz 
zvetrsnbjpkcuxdfgayohlimw 


Por tanto, el mensaje codificado sería: 


"uj ezaad ur cd advzadx" 
para lo que basta mirar en el primer renglón y sustituir por la equivalente en el segundo. 


El siguiente programa recoge un mensaje y lo codifica o cifra, mediante un código 
de sustitucion aleatorio. Posteriormente, lo desarrollaremos hasta que sea una rutina 
que decodifique mensajes de esos, suponiendo que el usuario es inteligente. 


LET af="abcdefahigklmnopagrstummeyz" 

FFINT az 

LET bi="* 

FOR i=1 TO za 

LET m=INT (1+(27-12+<ENODo 

LET b*=b++atfim?: LET af=aft TO m-iitaríim+ld TO > 
NEXT 1 


160 FEINT b3 


Simplemente, lo que hace es alterar aleatoriamente el orden del alfabeto, eligiendo 
al azar la primera letra, luego la segunda, también aleatoriamente y sacada de las 

que quedan, y asi sucesivamente. Estúdialo cuidadosamente, las revistas están llenas 
de rutinas de "aleatorización", que pinzan dos letras al azar, las canjean entre si, y 
lo repiten un montón de veces, lo que es increible para lograr este resultado! 


Ahora, para poder imponer el mensaje a codificar: 


200 INFUT mé 
210 FRINT mt 
215 LET cs=** 
o FOR i=1 TO LEN mi 
S LET c=CODE meri) 
THEN 60 TO 250 
THEN LET c=c+3z 
7 AND cc12s THEN LET ci=ci+bsic-96) 


250 PR INT c+ 


Las observaciones a hacer son que en la línea 235 se convierten las mayúsculas en 
minúsculas; la 230 detecta los blancos; y la c - 96 en la linea 249 aparece porque 
el alfabeto ocupa los codigos desde 97 a 123. 


ANALISIS DE FRECUENCIA 


¿Cómo un criptoanalista aborda el problema de codificación? (Desde luego, en la 
práctica, este método de cifrar mensajes se descubre tan fácilmente que no tendrá 
ninguna utilización practica: nuestra tarea inmediata es ver por qué). 


Lo esencial a tener en cuenta es que un idioma normal, no utiliza con la misma 
frecuencia las letras de su alfabeto. La letra "E", por ejemplo, se empiea mucho 
más frecuentemente que la letra 'Z". A continuación hay una tabla del promedio 

de aparición, determinado al analizar telegramas oficiales, (y y por supuesto en inglés). 
Con cifras para 100 letras. 


MnDwuNnN+FFD0aN-ar 
NE xXEE<CE*?*mMTOaDOJDsD 
SISTIPNYDSSNSS 
—= Nin OY ON —O0O0u Yu 


37" AT“ T0 +*+000004 


En otras palabras, la letra más común es "e" que aparece un 13% de las veces; luego 
la "t" con un 9,2%; luego "n", "r", "o", "a", So "5%, "d", después de las cuales, la 
frecuencia de aparicion es de menos de 4%. De Pe que es una buena estimación 
suponer que la letra que más veces aparezca en la versión cifrada del mensaje, 


suficientemente largo, debe ser la que corresponde a la "e", y asi sucesivamente. 


Para el mensaje anterior (que es bastante corto) las frecuencias son: 


de 18 


* <AEC TT:NON0 


y 
l 
4 
l 
l 
l 
2 
l 
l 
2 


Las más comunes son "a" y "d", que corresponden a "r" y "o" respectivamente; no 
es de mucha ayuda, pero es que el mensaje es muy corto. Si comenzaramos con un 
texto mas largo, tal y como: 


"Fisgando e hincando datos en sus sedes de la computacion" 
es un excelente libro de computacion 
su versión cifrada, sería: 


"sjynzxtd r bjxezxtd tzody rx yhy yrtry tr cz urudajz 
ry hx riercrxor cjvad tr edufhozejdx 


(y en la práctica, los blancos serian omitidos). Las frecuencias serian entonces: 


Una estimación de la frecuencia de cada letra en el idioma de los 
hispano-parlantes, es: 


— 


OÑNO=ONuN — y 


“ 


» 


== Win 0 iy Y — 00 00 — Un 


- 


s 


s 


e. su 
“ 
— 0 NX Y] 0OFFDO 


s 
“ 


“ 
“ 


—”"T0M0 000000 
vr1ODORIZTA 
NAYAONoDONp»nmno 


DNS — WD OY IM py SH A SIA E SA y 


a 
b 
C 
d 
e 
f 
h 
i 
j 
n 
o 
r 
S 
t 
u 
v 
Xx 
y 
z 


La letra que más veces aparece es la "r", que supondremos, corresponde a la "e" 

oa la "a", y con eso ensayaremos; luego vienen la "d", la "x'" y la "y", seguidas muy 
de cerca por la "t" y la "z", que si se mantuvieran las probabilidades, corresponderian 
a la "c", a la "o", a la "m", a la "f", a la "r". Eso nos permite ensayar y comprobar 
para ver lo que obtenemos. 


Desde luego, que la más probable ha de corresponder a la "e", en cuyo caso el mensaje 


Pero si la "r" correspondiera a la "a" en este caso, seria: 


y en este caso, que contamos con la ayuda de tener las palabras separadas por blancos, 
podemos ver que la "r'" corresponde en realidad a la "e" y ademas, poder detectar 
particulas pequeñas como "q", "e", "en". 


En otros casos, en que no estén las palabras separadas por blancos, será más dificil 
empezar a hacer ensayos. Pero siempre ha de tenerse en cuenta, que la frecuencia 

con que aparecen en una determinada frase, se acerca a la probabilidad general calculada 
anteriormente, pero no tiene por qué coincidir. 


EL PROGRAMA 


Por tanto, un programa de criptoanalisis para códigos de sustitución, deberá presentar 
la cuenta de las veces que aparecen cada una de las diversas letras; a partir de esa 
cuenta, ensayarás con distintas hipótesis y verás cuál es el resultado. Empecemos 
con la cuenta, mediante el siguiente programa: 


500 FEM analisis de frecuencia 
510 DIM n(24) 
5153 LET cal=0 
LET tot=LEN c+ 
FOR i=1 TO 26 
FOR ¿=1 TO tot 
IF CODE c+) Y6=i THEN LET ntid=n(1)+1 
NEXT j 
LET sé=5TF+ (.01*=INT (100=n(1)/tot0): 
IF s$(1)=".*" THEN LET st+="0"+s%+ 
FPRINT TAB col;CHES (1496); *¡s%+; 
LET col=co01+3 
IF col=32 THEN LET cou1=0 
NEXT i > 


Asi' contamos las veces que aparece. Las lineas 555 a 580 producen un listado en 
cuatro columnas. La linea 554 es un intento (fructifero) de producir solamente dos 
decimales en el número. Si se omite la segunda parte en relación con s$ (1) te 
encontrarás con que algunos números aparecen impresos como 


.P9 
mientras que otros lo hacen como 
034 


lo que da sensación de desaliñado. Colocando un cero delante, arregla este inconveniente. 
Pero, realmente, puedes acusarme de pedanteria. 


Ahora viene lo correspondiente a los ensayos y comprobaciones: 


1000 FEM decodificacion 
1010 LET p*+="*": FOR i=1 TO tot: LET pé=p++*".": NEXT 1 
10:20 FEINT AT 15,0;p* 
1100 FEM ensavo 
1110 INFUT "letra que aparece “*pk+: 
IF LEN k*<351 THEN 60 TO 1110 

1115 IF k$=*"0" THEN. 60 TO 2500 
11:20 INPUT *ensavo con letra “*;q%: 

IF LEN a+<31 THEN 60 TO 1120 
FOR i=1 TO tot: IF ccid=k* THEN LET p*+(ij=g%+ 
NEXT 1 E 
FEINT AT 15,0;p+ 


50 60 TO 1110 


bb A pu pd 
a 
Solis 


No está mal, pero tiene algunos "peros". Puedes intentar usar la "misma" letra como 
código correspondiente a diferentes letras en el mensaje cifrado, y no darte cuenta: 
de esa forma vamos al desastre. Por lo que sería bonito comprobar también esto. 
Para hacerlo, necesitamos conservar lo que conocemos hasta este momento. 


10 OIM dez) 

1125 60 TO 1500 

1500 FEM conservacion de lo decidido 

1510 LET E=CO0E k$-%%6: LET a=C00E at-YE 

1520 FOR a=1 TO 246 

15:25 IF díadi3g OR díad=k THEN 60 TO 1560 

1330 INFUT *Has usadoD" ¡CHEF (g+96); 
*"Ocomoa codigo correspondiente aD' ¡CHEF (a+); 
"Dquieres mantenerlo?" vt 

1540 IF yé="s* THEN 650 TO 1110 

1550 LET día)=0 

1555 GO SUB 2000 

560 NEXT a 

30 NEXT i 

1500 LET díki=aq 

1610 60 TO 113 


2000 FOR b=1 TO tot 

2010 IF p+Cbi=a+ THEN LET p+cbo=" 
2020 NEXT b 

2030 FETUEN 


Todo lo que necesitamos ahora, es una manera de salir, adecuadamente informados, 
cuando creemos que ya hemos abierto la brecha: 


1115 IF k$="0* TREN 60 TO 2500 


Eso nos permite imponer "/" cuando se nos pregunta "¿letra que aparece?" para que 
nos resuma todo. 


REM resumen hasta ahora 

CLS 

FEINT "Mensaje cifrado:*'c+"'“*"Mensaje decodificador" 'p+!/” 
FERINT "Tabla de codigos conocidos:* 

FOR i=1 TO 24 

FEINT AT 12,1+=3;0HR3 (1495) 

IF dc12<50 THEN  FEINT AT 13,i1+=3;CHE% (d(i+%6) 

NEXT 1 

0 TO 1110 


Para evitar los engaños, debes ahora suprimir las líneas 105, 160 y 210. Luego hacer 
que algun otro imponga el mensaje. O bien... 


PROBLEMA 


Aquí hay cuatro mensajes para que los decodifiques (las respuestas están en la última 
página, antes de los Apéndices). Todas son citas muy conocidas, pero cada una con 
un diferente código de sustitución. 


Lo sxdrvrcbduvarrcahrbiuczyjedrocreanhzpricazlrytrecbiduvar 
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Proyecto 


Modifica el programa para que exponga la tabla de frecuencias de las letras 

si se le exige (digamos, contestanto "1'" cuando te pregunta por letra que aparece. 
Añade un ordenamiento por burbujas (Fácil Programación, pag. 65) para que 
enumere las letras usadas en el mensaje según el número de veces que aparece. 
Eso facilita la decodificación. 

Añade otra opción (tecleando "2" ante la pregunta "¿letra que aparece?") para 
que presente la tabla de frecuencias habituales de las letras, para que la puedas 
consultar. 

Prepara un programa para contar las combinaciones de dos letras (bigrafismos) 
que sean más frecuentes en hispano. (En inglés son: 


en 2 .077 
re .098 Ñ .075 
er .087 .071 
nt .082 .064 
th 0.78 .064 


Para poder sacar ventaja de esta información extra. 

Escribe programas que funcionen con otros tipos de códigos (hay buenas referencias 
en la Enciclopedia Británica y Los Descifradores de Códigos por D. Kahn) y 

para permitirte intentar descifrarlos. 


¿Necesitas más de 23 canacternes 
defínibles por el usuario? Ahora 
puedes tenen 256 con un solo POKE. 


I5 Cambiando el 
Repertorio de Simbolos 


Ya mencioné en el capitulo 6 que puedes establecer nuevos simbolos por encima de ! 
RAMTOP y emplearlos "hincando" un valor en la variable sistemal CHARS. Este capitulo 
describe el proceso en detalle. 


Supongamos, para simplificar que queremos 64 nuevos símbolos. Por tanto, necesitaremos 
64 * 8 =- 512 octetos de espacio libre. RAMTOP apunta normalmente a la dirección 
32599 en un Spectrum de 16K, de manera que tendremos que bajar ese valor a 

32599 - 512 = 32487, con lo que dejaremos un ático de 512 octetos de superficie. 

Para hacerlo, teclea (directamente) 


CLEAR 32087 


El área cedida comienza en la dirección 32088. Que ya sabes, equivale a 125 * 256 + 88, 
por lo que el octeto junior es 88 y el senior 125. Podemos engañar al sistema para 

que CHARS indique esta nueva área, restando uno más del octeto senior (recuerda, 

que CHARS contiene 256 menos que la dirección de la tabla de caracteres). Por lo 
tanto, el comando real es: 


POKE 23646, 88: POKE 23607, 124 


Pero todavía no lo impongas. 


Este programa te permite establecer 64 nuevos símbolos, y comprobarlos para asegurarte 
que estan bien. 


FOR i=32 TO %6 
GO SUB 400 
FRINT i-31, 
GO SUB 200 
PEINT CHRé i 
FPRINT / 
NEXT i 
0 SUB 400 
STOP 
FEM neva direccion en CHARS 
3 FEM 93 y 243 para 48k 
FOKRE 23606,388: POKE 23607,124 
FETUEN 
FEM direccion normal en CHARS 
POKE 23606,0: POKE 23607760 
FETUEN 
REM “proce” que impone el nuevo repertorio 
FEM ¿433237 para 48k 
LET i=320883 
INFUT j 
FEINT jo"; 
POKRE i,J 
LET i=i+1: 60 TO 1020 


En el programa, la línea 200 hace que CHARS señale al nuevo área, la 400 lo pone 
para la posición normal; y en 1004 es la rutina que impone el repertorio de simbolos. 


Comienza con el comando GO TO 1000. Como prueba, solamente usaremos seis 
caracteres. Exactamente igual que con los gráficos definidos por el usuario, necesitas 
dibujar la forma del símbolo en una retícula de 3 x 3; convertir los renglones a un, 
valor binario con ceros y unos; y luego imponer ese valor (véase Fácil Programacion). 
Aquí usaremos los seis caracteres de la figura 15.1, lo que significa que tienes que 
teclear sucesivamente: 
255 293). 299-299. 2239 "299 (para 
129 129 129 255 (para 
31 63 127 255 (para 
195 195 255 255 (para 
16 32 64 128 (para 


255 126 126 24 (para 


Eso es suficiente: mandale parar y luego rular. Verás los seis caracteres enumerados 
como l, 2, 3, 4, 5, 6 en la pantalla. Si no, compruebalo cuidadosamente 


Figura 15.1 Un grupo de seis caracteres 


Habiendo visto que el método funciona, la tarea final es imponer realmente esos 
64 caracteres. Lo cual se hace en etapas: 


l. Diseñarlos. Puedes usar el constructor de tipos, una de las rutinas utensilio de 
Fácil Programación. 

Ze Calcular los datos correspondientes a los renglones (y esa canción ya te la sabes). 

3. Imponer los datos por teclado, como has hecho anteriormente. 
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Figura 15.2 Diseño de un alfabeto griego. 


Estoy seguro que tu mente ya está imaginando un montón de trucos ingeniosos para 
hacer todo esto más fácil, tales como combinar CONSTRUCTOR DE TIPOS con el 
pequeño programa anterior. Dejame simplemente mencionar uno. Para la imposición 
directa de los renglones en binario, y evitar la tediosa conversión a decimal (lo que 

es una idiotez, dado que el Spectrum inmediatamente los vuelve a convertir a binarios) 
cambia la línea 1020 para que sea: 


1020 INPUT b+ 
1030 LET ¡¿¡=VAL ("BIN *+b%*) 


Ahora puedes imponer los valores como ristras de ceros y unos, tomados directamente 
de la retícula 8 x 8: Y para un blanco, 1 para un negro. 


¿Qué caracteres debiera meter? Lo anterior sugiere algunos gráficos posibles. La 
figura 15.2 muestra un alfabeto griego completo. 


USANDO EL NUEVO REPERTORIO 


Para usar los nuevos simbolos en tu programa, una vez que estén en memoria, todo 

lo que necesitas hacer es cambiar CHARS y llamarlos por número. Si estableces CHARS 
como en la línea 200, luego: debes exigir CHR$ 31 + n, o simplemente pedir el simbolo 
normal directamente con el código 31 + nm; te saldrá el enésimo simbolo de tu nuevo 
repertorio. Para usar los caracteres normales, cambia de nuevo CHARS como en 

la línea 400. 


CONSERVANDO EL NUEVO REPERTORIO 
Para guardar en cinta todo tu duro trabajo, necesitas almacenarlos octeto a octeto. 
Si tecleas 

SAVE "nuevoreper" CODE 32088, 512 


consigues guardar en cinta lo< 512 octetos a partir de la dirección 32088, y quedan 
denominados "nuevoreper". (Poniendo en marcha la cinta, como es habitual para 
guardar programas). 


Para cargarlo de nuevo en memoria, usarás 
LOAD "nuevoreper" CODE 32083, 512 


Ahora te indicamos una forma incluso mejor. Escribe un programa que haga la carga. 
Primero teclea el programa: 


19 LOAD "nuevoreper" CODE 32/88, 512 
Ahora, guárdalo, con el nombre "nuevacarga" (por ejemplo). Usa 
SAVE "nuevacarga" LINE 10 


Inmediatamente después de eso, y en la misma cinta, guarda los nuevos tipos de símbolos 
usando SAVE...CODE como anteriormente. Ahora tenemos la cosa en dos cachos. 


Rebobina, carga el programa "nuevacarga", aprieta los botones, y vigila. 
El primer mensaje en pantalla será: 
Program: nuevacarga 


Inmediatamente que ese haya sido cargado, comienza a rular automáticamente a 

partir de la línea 10, debido a que así lo hemos incluido cuando lo hemos depositado 

en cinta. Deja la cinta marchando y ese programa, automáticamente cargara los octetos 
designados para nuevoreper (con el mensaje A nuevoreper). Eso te ahorra 

recordar todas esas direcciones, número y demás.. 


Este método nos abre un montón de posibilidades. Puedes encadenar programas uno 
a continuación de otro, de forma que cada uno reclame al siguiente. Siempre que 
seas hábil con los controles del cassette y no tengas que volver atrás, puedes hacer 
uso de esta idea en todas las suertes, para aumentar eficazmente la potencia de la 
máquina, ya que hace uso completo de la memoria extra que supone "la cassette". 
Los capitulos 9 y 17, sobre ficheros en cassette y Sistemas de Gestión de Ficheros, 
exploran esa idea dentro de un contexto provechoso. 


Una de Las pequeñas pejígueras con 

Los comandos PLOT y DRAW del Spectrum, 

es que pueden L£levarnnos a mensajes de 
entorn 54 Los puntos que queremos pintar 
y dibujan se salen de la pantalla. La 
respuesta es diseñan un utensilio para... 


I6 Trazado de Curvas 
sin encontronazos 


La manera más fácil de dibujar curvas, es escribir un bucle, que después de "pintar" 
el punto de arranque, "dibuja" sucesivamente hasta otros puntos, generados a partir 
de una lista de datos o de una fórmula. Sin embargo, esto nos crea problemas 

si los puntos se salen de la pantalla. Lo que sigue es un recuento golpe a golpe del 
desarrollo de un método para evitarlo. En algunos puntos, se vuelve un poquito 
matemático; pero si las matemáticas no es tu punto fuerte, ignora el álgebra y 
concéntrate en la estructura general. 


Recuerda que para los gráficos en alta resolución, el Spectrum emplea una retícula 

que tiene 176 renglones y 256 columnas (numeradas de f a 175 y de (,a 255) comenzando 
a partir del córner inferior izquierdo de la pantalla. El borde de la pantalla forma 

por lo tanto, un rectángulo cuyo tamaño es de 176 x 256 "motas". La clave de todo 

el asunto es plantear una subrutina, a la que entregamos las coordenadas (xl, yl) 

y (x2, y2) de los dos puntos, que no necesariamente están en la pantalla; determinar 
dónde la línea que los une sufre el encontronazo con el borde de este rectángulo 

(Figura 16.1). 
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Figura 16.1 ¿Dónde una línea entre dos puntos, choca con los bordes de la pantalla? | 


Una pizca de la vieja geometría cartesiama, nos permite computar esos puntos. La 
expresion algebraica 


la - b) * (d - e) 
(c - b) 


aflora repetidamente en diversos disfraces, lo que es una señal de que conviene definir 
una función para ella (véase capitulo 3). 


Usándola, conseguimos la siguiente rutina (los números de línea pueden parecer un 
poquito irregulares, la idea es que si continúas a través de todo ese capitulo y tecleas 
todas las líneas del programa al pasar, terminaras con un programa completo; pero 

la descripción irá subrutina por subrutina. Siempre es más fácil de teclear, y de diseñar, 
programas largos de esta manera). 


¿ DEF FN ala,b,c,d,e)=la-b)e(d-e)/(c-b)+e 


2 DIM y(2) 

THEN  LET xt=x1: 

1: LET yl=-1: LET yr=-1 
THEN  LET xt=-1: 

LET yl=vy1: LET yr=y1 

: AND y1<>v2 THEN 
at175,v1,v2,x2,x1): 
at0,y1,y2,x2,x1): 
aí0,x1l,x2,v2,y1): 
a(255,x1,x2,Yv2,y1) 


xti=255 THEN 
LET y(q)=175: LET q=q+1 
xb<=255 THEN 
LET y(q)=0: LET q=q+1 
yl v1<=175 THEN 
x(q1=0: LET y(q)=y1: LET q=q+1 
y 0 ANO yr<=175 THEN 
=(q)=255:1 LET y(q)=vyr 
1140 FETLEN 


En un programa, esta rutina necesita que se le abastezca con los cuatro números 

xl, yl, x2, y2, (que son las coordenadas de los dos puntos): y entrega las coordenadas 
de los puntos donde la línea en cuestión choca con el borde del rectángulo, en las 
variables x (1), y (1), x (2), y (2). 


Para ser capaces de emplear esta subrutina, debemos mandarle que vaya a la linea 
1000, o escribiendolo en un estilo civilizado, haremos previamente 
¿2 LET seg=1000 
con lo que ya podremos mandarle que vaya a seg. Así que añade la línea 22. 
Es sensato comprobar este bicho antes de proceder con los siguientes: el álgebra 


es lo suficientemente liosa como para que no detectemos en esta etapa algunos defectos, 
que provoquen posteriormente estragos. Así que añade temporalmente estas líneas: 
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(t*F1/50): 
(t*F1/30) 
Ga SUB seg 
PLOT x01),v(10:2 DEAW x(2)=x(1),y(2)-v(1) 
NEXT t 
STOP 
Ahora a rular: si lo que sale es un conjunto de líneas radiales desde la mitad de la 
pantalla, que se detienen en los bordes, todo está bien. Si no comprueba de nuevo 
el listado. Una vez que la rutina esté comprobada, suprime las líneas 1PP a 160. 


Con esto está todo el trabajo cerebral. La mayoría de lo que queda es mera rutina... 
o como minimo, subrutina... 


COMO DIBUJAR CURVAS 


La primera labor es definir la estructura general. Hay dos maneras principales de 
dibujar uma curva: 


l. Un gráfico. Dibuja FN (t) en función de t, siendo FN una función. Véase Fácil 
Programación para más detalles. 

2. Una curva parametrizada. Dibuja FNb (t) en función de FNa (t), siendo FNa 
y FNb dos funciones, en las que se denomina parámetro a la variable t. 


Sería bonito que nuestra rutina permitiera una y otra opción. (Y eso no es difícil, 
porque un grafico es realmente una clase especial de curva parametrizada, si hacemos 
FNa (t) = t. Pero generalmente, uno piensa en ellas de diferente manera ). 


El usuario va a tener que estipular esas funciones. Podríamos tener una linea en el 
programa que dijera algo asi como: 


7777 DEF FNb (t) = tonterías o bobadas. 


y pedirle al usuario que editara esa línea según la función que deseara. Pero ¿no 
seba mejor permitirle que impusiera la función elegida justo en el momento de rular 
el programa? 


El comando VAL (Fácil Programación) viene que ni pintado para esta clase de aplicación. 
Si el usuario asigna a FNb (t), digamos, una litérica f$, luego podremos evaluarla 
simplemente diciéndole al ordenador VAL f$. Por ejemplo, si t = 71 y f$ = "t * t", 
vemos que - 


VAL f$ = VAL "t *t" =71 * 71 = 5041 
que sí es el valor de la función "cuadrado" para t = 71. 


También supondría una tontería si solamente pudiéramos dibujar curvas cuyas coordenadas 
estuvieran acotadas de f a 155 y de Y a 175 (el problema habitual de desplazar y 
estrechar ejes, mencionado en Fácil Programación). Una técnica standard es fijar 

una ventana que cubra el área deseada, y transformar las coordenadas adecuadamente 
durante la rutina que dibuja (figura 16.2). 


De modo que un bosquejo de la estructura se muestra en la siguiente página. Dejando 
los detalles para que se preocupen de ellos mismos (programación de arriba abajo; 
véase Fácil Programación) escribimos el programa principal: 


100 FRINT "ESFECTROGRAFO" 
110 FERINT “"OPETONES:*'* 1 .Curva Parametrizada 
Zibrafico' 


120 INFLIT "Elige numero de opciones opcion 
130 60 SUB ventana 

CLS 

IF opcion=1 THEN 650 SUB parametro 

IF opcion=2 THEN 60 SUB grafico 

STOF 


Elige opción 
Gráfico Curva parametrizada 


Elige ventana 


Impón la función(es) que 
define la curva 


Dibuja la curva 


Bosquejo de estructura para el dibujo de curvas 


SUBRUTINAS 


Y llegamos aqui con tres subrutinas pendientes de escribir: ventana, parámetro y 
grafico. 


La de ventana es la pura simplicidad. 


¿0 LET ventana=500 
500 FEM ventana 
510 INFUT *Coordenadas ventana:z”, 
tizquierda*,*derecha*,'abajo*,'arriba',wl,wr,wb,wt 
320 FETLIEN 
Ya he dicho que gráfico es una clase especial de paramétrico, asi que, obviamente 


la cosa a hacer es escribir primeramente paramétrico y luego esperar que gráfico 
encaje facilmente en ella. 


Para pintar una curva parametrizada, con t como parámetro, necesitamos saber dos 
cosas: la gama de valores de t, y el tamaño de los intervalos dentro de esa gama 
en que se van a computar los valores de la curva. Por lo tanto, parámetro tiene que 
pedir esos datos, y luego dibujar la curva. 


¿6 LET parametro=2000 
2000 FEM parametro 
2010 INFUT "Gama de valores:', 
*cota izquierda*,*cota derecha", tl,tr 
2020 1NFUT *Numero de interwalos? 'ins 


2030 INPUT "Especifica 'x” e 'y'*,*como funciones de t',:*$,v$ 
2040 LET intervalo=(tr-£t1)/ns 

2050 50 SUB dibujo 

2060 FRETUEN 


PANTALLA 


( 
E 


l 


VENTANA a 
transformar en 

0-255 horizontalmente 
0-175 verticalmente 


Figura 16.2 El área de pantalla usada como ventana 


Esto nos deja la mayor parte del trabajo para la subrutina dibuja que todavía no hemos 
escrito. Vamos bien! La subrutina grafico funciona de manera muy similar, y hace el 
"desvio" a dibujo en el momento oportuno: 


2d LET grafico=1500 
1500 FEM grafico 
1510 LET tl=0: LET tr=255 
1520 LET ns=255 
1530 INPUT “Funcion de “t” que deseas';¡v+$: LET x$="t" 
1540 LET intervalo=1 
1550 60 SUB dibujo 
1560 EETUREN 


Deliberadamente la he escrito así para resaltar la analogía con parámetro. Gráfico 
establece todas las mismas variables que parámetro excepto para y$, que es la función 
que tú impondrás, y luego encarga el dibujo en, exactamente, la misma forma. (Tú 
puedes sustituir las últimas dos líneas por GO TO 2450, pero el buen estilo en 
programación sugiere lo contrario, siempre y cuando no desperdicies un montón de 
memoria o de tiempo). 


No podemos seguir retrasando el momento de la verdad ni un momento más... 


A AA O A My 


¿LET dibujo=2500 
REM dibujo 
LET t=t1 
LET u=VAL x*$: LET :=VAL y* 
GO SUB transforma 
LET xo=4: LET yo=0w 
IF FN otuy,) THEN PLOT uy, 
FOR t=tl+intervalo TO tr STEP intervalo 
LET u=VAL x*%: LET w=VAL yé* 
GO SUB transforma 
LET ur=u: LET ur=:. 
GO SUB testigo 
60 Sue deFro 
LET xo=uri LET yo=wr 
2500 NEXT t 
2610 FETUEN 


SST 


...Bien, puede que sí podamos después de todo. Nos las hemos arreglado para inventar 
tres nuevas subrutinas (una de las cuales, encima tiene cuatro partes): 


- transforma que convierte las variables de manera que la ventana escogida encaje 
exactamente en el área de pantalla. 

- testigo que nos indicará si los puntos a unir por dibujo están ambos én la pantalla, 
ambos fuera de ella, o dentro y fuera respectivamente. Y fijará la variable 
testigo fl a uno de los valores 1, 2, 3, 4, dependiendo de la combinación precisa 
de posiciones. 

- d (fl) que son realmente cuatro rutinas d (1) a d (4), correspondiendo a cada uno 
de los valores del testigo, porque las acciones que se necesitan son bastante 
diferentes de un caso a otro. 


Hemos metido también una nueva función definida por el usuario FN O (véase Capitulo 
3). Se supone que va a ser el testigo de que todo está "in pantalla". Es decir, definimos 


1 DEF FN ote, wi==>=0 AND x<=255 AND y>=0 AND yí=173 


por lo que FN O (x, y) = 1 si (x, y) está dentro de la pantalla, y FN O (x, y) = / si 

(x, y) está fuera de la pantalla. ¿Verdad que es bonito? Desde luego que puedes hacerlo 
de otras maneras: mi otro yo, probablemente definiría un testigo denominado inpantalla 
y escribiría 2544 IF inpantalla THEN... De hecho, así funciona con inpantalla = FN O 
(x, y). Todo lo que sea posible para hacer que el listado se parezca más al Inglés 

de la Reina y no a la Ley de la Relatividad de Einstein. 


Puede que sientas que no vamos a ningún lado todavía, porque no hemos abordado 
el problema central de dibujar realmente. Ten fe: ¿no sientes que el problema se 
está haciendo más pequeño a medida que redondeamos las esquinas y lo troceamos 
en cachos más pequeños? 


Transformar la ventana adecuada es fácil si tienes seis años de entrenamiento matemático, 
tal como tengo yo: 


LET transforma=2000 
REM transforma 

LET u=(U-w1)/Cwr-w1)+*2 
LET 10= Cub) / Cut-wb)=1 
FETLIRN 


E incluso puedes comprobar que tengo razón. Lo que queremos es que las u-coordenadas 
wl y wr, se transformen en valores de f a 255; y que las wb, wt se transformen de 
VD a 175. Ahora, poniendo u = wl en la parte derecha nos da u = / en la izquierda; 
y poniendo u = wr nos da u = (wr - wl) / (wr - wl) * 255 = 1 * 255 = 255... ¡maravillas 
de la técnica! Y wt, wb funcionan de la misma manera. 
Y volviendo al ovillo: 32 LET testigo=3200 

3200 REM testigo 

3210 LET f1=FN olxo,v0)+2%FN o(u,v)+1 


Que funciona de la siguiente Sal supongamos que queremos unir el punto viejo 
(xo, yo) al punto nuevo (u, v), tendremos: 


Valor de £ 


dentro 
dentro 
fuera 
fuera 


(donde dentro/fuera se refiere a dentro o fuera de la pantalla, no de otro lado). 
Mediante el valor de fl distinguimos así los posibles casos. 


¿Por qué distinguirlos? La acción requerida es: 


Dibujar la parte de linea entre los puntos viejo y 
nuevo, que Cae dentro de la pantalla (si hay algo) 
Unir el punto viejo al extremo de la pantalla, a lo 
largo de la línea dirigida al punto nuevo. 

Unir el borde de la pantalla al punto nuevo, a lo 
largo de la línea procedente del punto viejo. 

Unir el punto viejo al punto nuevo. 


La razón de la acción (1) es que puede suceder que, mientras que ambos puntos, viejo 
y nuevo caen fuera de la pantalla, parte de la linea entre ellos debiera caer dentro 
de ella, por lo que la dibujamos (véase figura 16.1). 


RUTINAS DE DIBUJADO 


Finalmente, aquí tenemos todas, escritas en el orden más fácil para mi cerebro en 
este momento. 


IM 
LET 
LET 
LET 
LET día )=3500 


Ss 0í-JEA 


Bu 


FEM díd)-ambos dentro 

OFAW u-PEER 23677, ,V-FEEK 23675 

RETLIEN 

FEM d(2Z)-viejo dentro,nuevo fuera 

LET x1i=x=0:2 LET vi=vyv0: LET x2=u: LET y2=w 


ANO S6N C(unx(1d)0<>S6N C(xCl1d=>x0) THEN 
ANO Só6N (u-vy(1))<35656N (y (1)-v0) THEN 
. > J-PEEK 23477, ,v(z)-PEEK 236785 
FETLIEN 
FEM dis aniejo fuera, nuevo dentro 
LET xl=x0: LET vi=y0: LET x2=0: LET y2=w 
0 SUB seg 


0D AND SGN (u-x(1))<3+S6N (x(1)=x0) THEN 
ANO SGN C(u-y(117<+S56N (y(1)-y0) THEN 
yv (zz): DEAW u-x(z),w-v(z) 


d(l)-ambos fuera 

xl=w01 LET yi=y0: LET x2=u: LET y2=w 
GÓ SUB seq 
PLOT (1), v(01)2 DEAW xC02)=x(1),v(2)-y(1) 
FETLIEN 


Todo el uso con el signo es para determinar cuál de los puntos x (1), y (1) o x (2), 
y (2) es el correcto a emplear. Descártalo si odias las matemáticas. 


Eso es casi todo. Las variables xo e yo que son las coordenadas del punto viejo, no 
han sido dotadas de ningún valor todavía. El sitio correcto es en: 


¿335 LET xo=u: LET yo=uw 
y también ha de ser: 


2575 LET ur=u: LET vr=u 
2595 LET xo=ur: LET yo=ur 


COMPROBACION 


Ahora estamos dispuestos a comprobar. Rúlalo y vete tecleando: 
Opción l 
Ventana -5 
Gama del parámetro  -5 
Número de intervalos 100 
Funciones de t t 


Todo está bien: una linea (no enteramente recta) sube de la parte inferior hacia la 
parte superior. (¿No lo haces ¡Puede que alguien esté abobado! 


¿Algo un poco más difícil? Vamos a por una parábola, parte de la cual está fuera 
de la pantalla. (La primera comprobación no usó las subrutinas d (1)-d (3) en absoluto... 
y eso que era el punto principal de todo el ejercicio!). 
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Opción 1 
Ventana -5 
Gama del parámetro  -5 
Número de intervalos 144 
Funciones de t t t*t 


La figura 16.3 muestra el resultado. Es bonito -pero es una parábola muy castiza... 


Puede que te sorprenda o no, saber cuánto tardé en encontrar la pifia. Demasiado 
tiempo -debía estar bastante cansado. Un rastreo imprimiendo en papel, me mostró 
que el criminal era el encargado de la gestión de 51) -unir dos puntos, ambos fuera 
de la pantalla. Pero, ¿qué es lo que esta mal hecho? 


Figura 16.3 Una parábola ! Bueno, casi... 


Finalmente, cai en la cuenta de lo que era obvio. Si los dos puntos a unir, están ambos 
fuera de la pantalla, en el mismo lado, la línea que los une puede caer dentro de 
la pantalla aunque el segmento que hay entre ellos no caiga (véase figura 16.4) 


PANTALLA 


AREA 


Figura 16.4 El origen de la pifia 


Esto se arregla fácilmente, pero usando otra subrutina: 


LET compruetba=4000 

FEM comprueba 

LET seguan=0 

IF = ¿2 ANO SG6N (yi-y(1))=S6N (v2-y(1)) THEN LET segon=1 
IF a Z AND SGN (x1-x=<(1))=S55N (x2i-x(1)) THEN LET segon=1 
FET 


Esto estipula otro testigo llamado segon, que es 1 cuando se alcanza la situación 
de la figura 16.4. Para hacer el encargo a esta subrutina, añade: 


da 


23 60 SUB comprueba: IF_ segon THEN RETURN 


Al repetir la prueba con la parábola... funcionó! Finalmente, un test mucho más restrictivo: 


Opción 1 

Ventana -.7 7 -.3 

Gama del parámetro 9 2.1 

Número de intervalos 300 

Funciones de t SIN (11 * PI * 1) COS (13 * Pl * t) 


Es una figura de Lissajous (véase Fácil Programación) pero la ventana la he elegido 
de manera que se sale repetidamente de la pantalla y retorna de nuevo. El resultado 


aparece en la figura 16.5 y queda bastante claro que el programa hace lo que se 
supone debe hacer. 


Figura 16.5 Una figura de Lissajous saliendo y entrando de la pantalla muchas veces, hace una prueba 
excelente. 


Proyecto 


Este es un programa genuinamente útil. Ensaya con tus propias elecciones de valor 
para opción, ventana y funciones, empezando con las sugerencias que te mencionamos 
más adelante. Si tienes dudas, usa las funciones anteriores y simplemente varía las 
otras Opciones una a una. Un buen manantial de ideas es el libro Un Libro de Curvas 
por E.H. Lockwood, Cambridge University Press. 


Está claro que todavía son posibles algunas mejoras. En algunos sitios hay trozos 

de codigo muy similares que se usan mas de una vez -por lo que, sin ninguna duda, 
una subrutina acortaría el listado. También una opción para volver a pasar el programa 
cambiando sólo una variable determinada, sería provechoso. Puedes incluso, ser capaz 
de plantear un enfoque más inteligente a todo el problema. Uno de los peligros de 

la programación de arriba a abajo, es que si seleccionas para empezar una estrategia 
mala, tiendes a quedarte pegado a ella. 


Puedes también añadir rutinas extra. ¿Quieres dibujar los ejes? ¿Marcar las escalas? 
¿Varias curvas superpuestas? Yo dejo esos proyectos a aquellos que se sientan inclinados 
3 hacerlo. 


SUGERENCIAS PARA CURVAS 
Opción 2: Gráfico 
Catenaria: ventana 
EXP t + EXP (-t) 
Cisoide: ventana 
t/SQR (10 - t) 
Parábola de Neile: ventana 
(t* Dr(1 /3) 
Serpentina: ventana 
2*1/(4+1*1) 
Estrotoide: ventana 
t * SQR ( (2 - t) / (2 + t) 


Opción 1: Curva parametrizada 


(£)  Coclioide: ventana 
gama de parámetros 
número de intervalos 
t * SIN t* COS t 
t * SIN t * SIN t 


Figura 16.6 La coclioide 


Caracola: ventana 


gama 
intervalos 
3+5*COSt)*COSt 


(3 + 5 * COS t) * SIN t 
Roseta: ventana 
gama 
intervalos 
COS (11 * t) * COS t 
COS (11 * t) * SIN t 


Figura 16.7 Una roseta de 11 pétalos 


Pseudo-Lissajous: ventana 


gama 

intervalos 
19 / (1 + t 1) * SIN (3 * t) 
10 / (1 + t * 1) € SIN (5 * 1) 


Figura 16.8 Una elegante figura pseudo-Lissajous 


La mayoría de los ficheros tienen mucho 
en común. ¿Por qué no tratarlos todos de 
4gual manera? 


I7 Sistemas de Gestion de Archivos 


Avancemos en el desarrollo de las ideas sobre ficheros (capitulo 9). Allí, se supuso 

que antes de que puedan escribirse programas de creación, mantenimiento y escrutinio, 
tenemos que saber los rasgos exactos del fichero con el que estamos tratanto. Y 

sin embargo, todos los ficheros se van a parecer muchísimo. Simplemente variará 

el número de campos por registro y sus longitudes. De forma que no sería difícil 
modificar inreg, por ejemplo; cambiando todas esas constantes (30, 36, etc.) por variables. 


Como un eminente cientifico irlandés en computadoras señaló: "Todas tus constantes 
debieran ser variables". 


Más despacio, sin embargo. ¿Cómo sabrá inreg cuáles son las longitudes de los campos 
en un caso particular? Bien, ¿por que no permitir que la rutina de inicialización las 
pregunte al usuario cuándo se está creando el fichero, o que las tome del bloque 

de cabecera en caso contrario? La forma del bloque de cabecera se está complicando 
un poquito más ahora, así que observémoslo con algún detalle. 


EL BLOQUE DE CABECERA 


Básicamente, va a haber dos tablas. Una contiene un nombre suministrado por el 
usuario para cada campo (así que es una tabla de literales), y la otra guardará el 
número de octetos reservados para cada campo. Ya no necesitamos saber el número 
de octetos por registro, porque es la suma de todas las longitudes de los campos, 
pero sí necesitamos todavía el número de registros por bloque, de manera que los 
incorporemos dentro de una tabla numeral. Hay otra consideración más. Los campos 
pueden contener información numérica o litérica, y probablemente necesitaremos 
manejarlos de forma diferente en cada caso. Así que tendría sentido asegurar que 

los campos se distinguen de esa forma cuando se estipula. Podríamos tener otra tabla 
con esta información, pero yo voy a rotular cada nombre de campo con una "I" o 

"n" en el primer octeto, para indicar si es de índole literal o numeral. Así que nuestras 
tablas, tendrán la apariencia dada en la figura 17.1. 


En ella, supongo que el fichero va a registrar las transacciones de cuentas bancarias. 
Tenemos una fecha con seis caracteres (y es de indole literal porque no vamos a 

hacer ningún cálculo aritmético con ella, si lo quisieramos, sería mejor tener 3 campos 
numéricos separados, ndía, nmes y naño); el número del cheque; la cantidad de 

dinero (ambos numerales) y un campo descriptivo (literal) en el que puedan reseñarse 
hasta 17 caracteres para describir la transacción. Los números de cheque tienen siempre 
6 digitos (los mios por lo menos), y 8 digitos en el campo del importe que permiten 
reseñar hasta 99.999,99 ptas., que desde luego es una cifra optimista para mi cuenta 
del banco. (Observa que se usa una posición para la coma decimal). El número de 
registros por bloque es 24 y, para que los nombres de los campos concuerden con 

sus longitudes, n$ (1) se deja en blanco. A mi me hace siempre feliz, que exista ese 
espacio extra y extraño, porque siempre me deja un escape si se me ha olvidado algo. 
Dado que ambas tablas tienen 11 elementos, hay un sitio para 1f campos por registro. 


Desde luego, no presenta ningún problema alterar esto si crees que es un poco 
restrictivo. 
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Figura 17.1 Trazado del bloque de cabecera 


PREPARANDO UN FICHERO 


La gestión de iniciar quedará como sigue: 


9588 DIM n$(11,18>: DIM w(11>: LET ¡p=0:% LET op=8: 
LET inbc=8: LET exbc=8: LET nrb=8 

9505 INPUT "Nombre fichero de entrada:”";+f$ 

9519 IF f$="nulo" THEN GO SUB preparar: GO TO 9525 

9514 PRINT "Marchando un pinchado de cinta" 

9515 LOAD f$+"h1”" DATA ns$(> 

9521 PRINT "Amputando acabose la RASCAZON" 

9525 INPUT "Nombre del fichero de salida:";g$ 

9538 FOR p=2 TO 11 

9535 LET nrbenrb+w(p) 

9548 NEXT p 

9545 DIM ¡$(w(1>,nrb>: DIM o$(w(1)>,nrb) 

9547 IF g$="nulo"” THEN RETURN 

9558 SAVE g$+"h1”" DATA n$()>) 

9555 SAVE g$+*"h2" DATA w() 

9557 PRINT "Amputandose acabose la GRABAZON" 

9560 RETURN 
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Es casi lo mismo que antes, excepto que si tecleas "nulo" como nombre del fichero 

de entrada, reclamará preparar que generará una descripción de un fichero nuevo. 

Si no, carga la descripción del fichero a partir de los dos primeros bloques del fichero 
de entrada (que, para un fichero llamado "pepe", será "pepehl" y "pepeh2"). Calcula 

el número de octetos por registro (líneas 9530 a 954) y prepara los buzones de entrada 
y salida a partir de esa información. Finalmente, si el fichero de salida no es "nulo", 
escribe sus bloques de cabecera. 


Redactaremos la subrutina preparar a partir de la 9400: 


9488 INPUT "Numero de campos:";¡nf 
9485 CLS 


9418 FOR p=2 TO nf+1 

9415 PRINT AT 10,2;"Campo *";p-1 

9428 INPUT "Nombre del campo:"¿n$(p> 

9425 INPUT "Numero de octetos:" ¡w(p> 

9438 NEXT p 

9435 CLS 

9448 INPUT "No. de registros por bloque:”"jw(1> 
9445 RETURN 


No hay mucho que comentar aqui. La gestión preparar ejecuta simplemente un buble 
FOR, una vez para cada campo, tecleando el nombre del campo y la longitud de los 
elementos apropiados. Hay una pequeña cuerda de violín a tocar aqui, y es el hecho 
de que el campo 1 realmente ocupa el elemento segundo de la tabla. Finalmente, 

se especifica el número de registros por bloque y se impone en w (1). 


Ahora vamos derechos a la base. Podemos volver a escribir inreg usando la versión 


de formato prefijado para que nos dé pistas de cómo abordar esta rutina de propósito 
más general. 


La vieja comenzaba con: 
8888 DIM a$(336) siendo 336 la longitud de un registro. 
Ahora iniciar ha evaluado eso y lo ha puesto en nrb. Así que tenemos: 
8088 DIM a$(nrb) 
La siguiente línea fue: 
8818 INPUT "Artista "¡así TO 30) 


Así que, en términos más generales, lo que nos gustaria hacer es tener un bucle en 
que la línea equivalente dijera algo así como: 


INPUT "otro campo"; a$ (comienzo de campo TO fin de campo) 
y que eso se repitiera para cada campo. No puedes escribir algo como: 


10 LET p$="otro valor” 
28 INPUT p$;¿nv 


porque, aunque es perfectamente valido en BASIC, su significado es diferente de 
lo que queremos. La línea 20 no nos dice que "presente lo que haya en p$ como si 
fuera un mensaje y luego impusiera el valor tecleado en nv". Dice que "imponga la 
ristra que tecleemos en p$, y luego el valor que tecleemos en nv". Sin embargo, si 
pones paréntesis a p$5, se produce el efecto deseado. 


IMAGEN EN PANTALLA 


Mientras este truco es simple y conveniente, puede confundir un poco al usuario, 

él solamente ve un campo de un registro en cada momento, y sería de más ayuda 

si viera todo el registro que se esta formando. Además, él no tiene ninguna indicación 
sobre la longitud del campo que puede usar. 


La solución simple es formar el registro en la pantalla usando exposición de mensajes 
para cada campo y copiando cada valor impuesto para que concuerde con la pregunta 
apropiada. Sera una técnica familiar para ti si te salieron los dientes con el ZX81, 
¡que no permitia mensajes de preguntas en las instrucciones INPUT! 


Así que lo que nos gustaría, es que en la pantalla se mostrara algo como este ejemplo 
de cuenta bancaria: 


fecha 

n2 de cheque 
cantidad 
descripción 


donde las partidas subrayadas son valores impuestos por teclado, que inmediatamente 
vuelven a presentarse en pantalla. El subrayado realmente aparecera, y mostrará 
la anchura maxima de cada campo. 


Observa varias Cosas: primeramente, el tipo de campo se ha separado del nombre 

y se presenta simplemente como recordatorio para el usuario. En segundo lugar, el 
importe se muestra como negativo, y verás por qué es útil ese convenio posteriormente. 
En tercer lugar, el usuario hace una observación en el campo de descripción de que 

el material de oficina es deducible de impuestos. No está usando el sistema muy 
sensatamente, porque es probable que desee una lista de partidas deducibles al final 
del año, y eso significa examinar parte de un campo. Debiera haberlo pensado antes 

de comenzar y usar un quinto campo para identificar las partidas deducibles. 


En todo caso, volviendo al problema: 


8018 CLS : LET comienzo=1 borra la pantalla de forma que la imagen 
del registro no se vea amontonada, establece 
el puntero para el comienzo de aS... 

88208 FOR p=2 TO 11 y se mete en un bucle 


8825 IF n$(p,1>="0" THEN comprueba si es el último campo 
GO TO 8128 


8838 PRINT AT p,85n$(p,1)5" | presenta la carátula 
1" ¡AT p,4jn$(p>(2 TO > lo plantilla 

8848 FOR c=1 TO w(p> para el campo 

8859 PRINT AT p,14+c;"*"-_ 


8848 NEXT c 
12 —_—_———_——_—_—-=—_——==——_ AAA 


Como a5 es una variable litérica, necesitamos saber dónde comienza y termina la cadena 
que corresponde a este campo: 


89070 LET termino=comienzo+tw(p)-1 


En la primera ronda, comienzo = l, porque asi fue asignado en la línea 8010 y 
término = 6, lo que significa que podemos escribir: 


8888 INPUT (n$(p>(2 TO >>¡aSí(comienzo TO termino) 


y el efecto será preguntar con la palabra "fecha" y transferir eso a a5 (1 TO 6). Ahora, 
ponemos eso mismo sobre la pantalla: 


8898 PRINT AT p,i5jaS$í(comienzo TO termino) 
Finalmente, debemos fijar la nueva posición de "comienzo": 
8108 LET comienzo=termino+1 
y cerrar el bucle: 
8118 NEXT p 


Pasar el resultado a r$ y salirnos de la subrutina: 


81208 LET r$=as$ 
8138 RETURN 


COMPROBANDO 


En este momento, podemos escribir un par de rutinas de comprobación para ver que 
todo funciona. Primeramente necesitamos crear un fichero. La rutina que usamos 
para crear la coleccion de discos, funcionara sin modificacion, simplemente para 
recordarte: 


1988 GO SUB ¡iniciar 

118 GO SUB ínreg 

128 GO SUB punza 

138 INPUT "Alguno mas?ts/n)>"jq$ 
148 IF q$="s" THEN GO TO 118 
158 GO SUB cierre 

168 STOP 


Cuando rulas este programa, iniciar preguntará el nombre de fichero de entrada, 

a lo que responderás "nulo", desde luego, y se te solicitará la descripción del registro. 
Pudieras usar la cuenta bancaria 1 como un ejemplo suficientemente simple. Haz 

el tamaño de bloque pequeño, digamos 5, de manera que no tengas que teclear 
demasiados registros antes de que se active el mecanismo de agrupamiento en bloques. 
De esa manera, todo se comprueba sin aporrear demasiado el teclado. Finalmente, 
impón 19 o 15 registros, para formar el fichero de prueba. 


Ahora necesitamos saber si la información se ha guardado correctamente. Sustituye 
las líneas 119-164 con: 


118 GO SUB pinza 

128 IF rs$( TO 2>="))" THEN STOP 
138 PRINT rs 

148 GO TO 118 
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Nh 


Cuando pases este programa, sacarás registros como: 


12888212345921 .76000 pipas 
si has empleado el formato de registro del ejemplo de la cuenta bancaria. 


Ahora bien, sabemos que los primeros 6 octetos representan una fecha, y eso es 12/08/82; 
que viene detrás el número de cheque (123459) y un importe (21.76 -observa los 3 
blancos, debido a que hay sitio para 8 octetos en la definición del registro) y finalmente, 
una descripción. Pero salidas como esa, no son cómodas para el usuario. Asi que lo 

que realmente necesitamos es una rutina que desentrañe r$ en campos separados. 


Llamémosla exreg dado que realiza la función opuesta a inreg,y coloquémosla a partir 
de 8200: 


8288 LET comienzo=1 

82189 FOR p=2 TO 11 

8228 IF n$(p>="0" THEN PRINT : RETURN 
8238 PRINT n$(p,1>;":"¿TAB 4¡n$(p>(2 TO >; 
8248 LET termino=comienzo+w(p)>-1 

8259 PRINT TAB 15¡r8$(comienzo TO termino) 
8260 LET comienzo = termino + 1 

8278 NEXT p 

8288 PRINT : RETURN 


No es una sorpresa que esta rutina tenga un parecido más que pasable a inreg, pero 

hay una diferencia importante. Queremos que los registros se "desrrollen" continuamente, 
en lugar de que aparezcan en la misma posición de la pantalla. Si lo arreglaramos 

para esto último, tendrías que ser un lector extrarápido para ver algo! Por lo tanto, 

no es bueno "PRINT AT". Para conseguir la tabulación horizontal, previamente provista 
por las coordenadas en una instruccion "PRINT AT", uso la función "TAB". Si no la 

has usado anteriormente, puedes pensar que es equivalente a "PRINT AT" sin especificar 
el renglón. En otras palabras, si dices 


PRINT AT 2, 15;... 
estás especificando el renglón 2. 
PRINT TAB 15)... 


da la misma posición de columna, pero en el siguiente renglón disponible, donde quiera 
que este. 


Ahora, todo lo que tenemos que hacer es cambiar la línea 130 para que sea: 
1309 GO SUB exreg 


y, cuando se rula el programa resultante, cada registro aparece en forma legible 
sobre la pantalla. Desde luego, es poco probable que desees un listado completo del 
fichero en la pantalla. Sería más sensato sacarlo por impresora. Así que tendríamos 
una rutina llamada prexreg que enviaría un registro a la impresora. Sería idéntica 
a exreg, excepto que todas las PRINT serían cambiadas a LPRINT. 


EL DISEÑO GENERAL 


Ahora, ya disponemos de todas las herramientas necesarias, para construir propiamente 
nuestro sistema de gestión de datos. Así que tomémonos un descanso de la codificación, 


retrocedamos unos pocos pasos, y consideremos el diseño general. 
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En el primitivo sistema de manejo de ficheros, llevamos a cabo tres rutinas: crear, 
mantener y escrutar. Necesitamos todas esas, más unas cuantas extra. En esta ocasión 
las armonizaremos mediante un menú en el mismo programa principal. Por tanto 

no tiene mucho objeto tener 'mantener”, como una de las opciones, y luego preguntar 
inmediatamente si es para "agregar" o "suprimir" registros. Pudieramos también tener 
"agregar" y "suprimir' como opciones primordiales. 


Nuestro programa principal se parecería entonces a éste: 


CLS 

PRINT AT 0,5;"Archivero Spectrum”: GO SUB ¡iniciar 
CLS 

PRINT AT opciones son:”*" 
PRINT AT crear" 

PRINT AT agregar" 

PRINT AT suprimir” 

PRINT AT escrutar" 

INPUT "*Teclee numero de opcion:” ¡opt 
GO SUB 288x*opt 

GO TO 26 


¿Estoy oyendo murmullos de descontento? ¿Hay alguien por ahí musitando que hace 
un minuto decia que necesitaba implementar algunas rutinas extras, y al siguiente 
minuto solo permite aquellas que ya habiamos planteado? Tienes toda la razon, muchacho. 


Pero observa cómo me lo he montado para abordar cualquier otra rutina. Simplemente 
añades otra linea a las opciones: 


44 PRINT AT 7,11;"5/ lo que se te antoje" 


y luego colocas la subrutina correspondiente a partir de la línea 1000, dado que el 


mecanismo que guía el programa principal hacia la subrutina correcta, simplemente 
multiplica el número de la opcion por 200. 


Así que crear está en la 200 
agregar está en la 400 
suprimir está en la 609 
escrutar está en la 800 
lo que se 
te antoje está la 1000 


y asi sucesivamente. 


Además, este es un mejor enfoque para construir el sistema en forma confeccionada 

y estática, que no permita ninguna ampliación. Sólo después de haber usado el sistema 
durante bastante tiempo, es cuando se empieza a dar cuenta de sus limitaciones y 

se desea implementar una rutina que domine el mundo o haga lo que sea. Haciendo 
las cosas de esta manera, puedes modificar el programa en el momento en que la 
inspiración (o, con más probabilidad, frustración) te sobrevenga. 


INICIALIZACION 


Una cosa más a considerar: iniciar es citada antes de que se ofrezca ninguna de las 
opciones. Ahoru insertarlo en cada rutina, y responde ante ella más de una vez 

si quieres hacer varias cosas con los mismos ficheros. Significa, desde luego, que 

el programa debe volverse a rular para elegir ficheros diferentes. Desafortunadamente, 
significa también, volver a pensar un poquito sobre la codificación, porque iniciar 

hace algunas cosas más que meramente definir nombres de ficheros. 


También fija los punteros y los contadores de bloques, y esas cosas tienen que estar 
asignadas al comienzo de la lectura de un segundo fichero. Asi que meteremos una 
subrutina más dentro del sistema de ficheros en cassette, denominada arredro que 
simplemente "vuelve atrás" esos punteros: 


9978 LET pin=8: LET pex=8: LET ¡inbc=0: LET exbc=8 
9988 RETURN 


Con esto, la primera línea de iniciar puede convertirse en: 
9588 DIM n$(11,18>: DIM w(11): LET lpr=8: GO SUB arredro 
y desde luego, la línea | tiene añadido: 


LET arredro=99708 


Finalmente, podemos citar arredro en el programa principal antes de volver del bucle 
hacia el menú: 


120 GO SUB arredro 
138 GO TO 26 


LAS RUTINAS 


La de crear ya la tenemos, excepto que necesita renumerarse y una instrucción de 
vuelta en lugar de una de paro: 


289 GO SUB ¡nreg 

218 GO SUB punza 

229 INPUT "Alguna mas?(s/n>";q$ 
238 IF q$="s" THEN GO TO 208 
240 GO SUB cierre 

2508 RETURN 


la de agregar es un poco más problemática. Por un lado, no fue previa y separadamente 
implementada, y por el otro, ya he comentado que es de naturaleza algo primitiva. 

Asi que, aprovecharemos la oportunidad de volver a considerar el problema. Necesitamos 
cargar todos los añadidos al fichero en una tabla para empezar, y luego, a medida 

que se lee el fichero, comparar cada uno de ellos con el registro "vigente" para decidir 
si hacer la inserción o no. Necesitamos también marcar cada posible inserción para 
indicar si ya ha sido insertado o no. Por el momento, vamos a hacer como el avestruz 
ante ese problema. Asi que: 


489 INPUT “Cuantos registros?*;¿nr repara la tabla 
418 DIM b$(nr,Ipr> 


429 FOR q=1 TO nr 

438 GO SUB i¡inreg carga registros 
448 LET b$(q)=r$ adicionales en b$ 
458 NEXT q 


El siguiente párrafo puede sonar a truco. Tenemos que identificar la parte del registro 
que vamos a usar como clave. En el fichero de cuentas bancarias por ejemplo, podríamos 
ordenar los registros por fechas o por número de cheque o por cantidad; y como es 
usual, queremos darle al usuario tanta flexibilidad como sea posible. Asi que, citaremos 
a una subrutina, de cuyos detalles nos ocuparemos posteriormente, que llamamos 
"sacaclaves". Por el momento, diremos simplemente la gestión que nos gustaria que 

nos hiciera sacaclave, requerirá al usuario el nombre del campo clave y entregará 

a la rutina que la citó tres valores: 


comienzo: el octeto de r$ o b$ (p) al comienzo del campo clave ANS 
132 


término: el octeto de r$ o b$ (p) al término del campo clave 
Itipo: será Y si la clave es numérica y 1 si es litérica 


Definiendo sacaclave como una subrutina, tiene la ventaja habitual de parecer que 
hacemos muy poco trabajo, ya que definimos lo que realiza y podemos usarla antes 
de preocuparnos realmente de desarrollar cómo lo hace. Sin embargo, anticipandonos 
un poco, podemos detectar que hay presente un rasgo tipo para una segunda subrutina: 
¡porque suprimir y escrutar tambien van a necesitarlas! 


En todo caso, por el momento, supondremos que ya disponemos de sacaclave y vamos 
a ver cómo la usamos: 


460 GO SUB sacaclave 


ORDENANDO 


A continuación, tendremos que poner en orden los registros adicionales. No podemos 
hacerlo antes porque no sabemos segun que clave ordenar, hasta que sacaclave haya 
sido puesta a trabajar: 

465 GO SUB ordenar 


y ahora si podemos fijar un puntero hacia el primer registro en b$ que va a insertarse 
en el fichero: 


470 LET ap=1 


A partir de aquí, las cosas son bastante directas. Todo lo que necesitamos es comparar 
bS (ap) con el siguiente registro del fichero (r$). Si r$ tiene una clave inferior, lo 


sacamos; si no sacamos b$ (ap). Hay, sin embargo, un punto a vigilar. Si se saca rS 
necesitamos coger el siguiente registro del fichero; pero si el que sacamos es un 
elemento de b$, simplemente tenemos que bombear el valor de ap en la unidad. En 
ambos casos, debemos ser precavidos contra la lectura más allá del fichero, o más 

allá del final de la tabla. ¿Qué sucede cuando el fichero de entrada o la tabla a añadir 
se vacia? Desafortunadamente, cosas diferentes. Asi que citaremos a una subrutina 
cabosueltos que nos atará bien atadas estas cosas. 


488 GO SUB pinza 
499 IF ap>»nr OR r$( TO 2>="/)" THEN GO SUB cabosueltos: RETURN 


Ahora queremos comparar las claves de r$ y b$ (ap). Vamos a sacarlas primeramente 
y ponerlas en s$ y t$5 respectivamente: 

509 LET s$=r$(comienzo TO termino): 

LET t$=b$(p>(comienzo TO termino) 

Comparemos ahora s$ y t$. Pero hay un problema. s$ y t$ pueden realmente tener 
índole numérica o litérica. Si realmente son numéricas, están vistas como litéricas, 
por lo que entonces, no se consideraria que 123 es idéntico que 123.0. Peor todavía, 
5 resulta que es mayor que 12! 


Así que necesitamos dos subrutinas más, companum y compalit, que hagan comparaciones 
numericas y litéricas respectivamente. Ambas entregarán un valor llamado comp 
que destaque el resultado de la comparación en la forma siguiente: 


Valor de comp Significado 
21 < 
0 = 


l > 


Puede que barruntes por que he especificado y ''>" cuando todo lo que realmente 
necesitamos es "<". La razón es que mantengo E ojo sobre las rutinas suprimir, escrutar 
y ordenar que también usarán comparaciones, y probablemente ne maneras diferentes 
a ésta. Así que, es mejor hacer las rutinas tan generales como sea posible. 


Ahora podemos escribir: 


510 IF ltipo THEN GO SUB compalit 
528 IF NOT 1tipo THEN GO SUB companum 


Puede que no hayas visto este tipo de construcción anteriormente (a no ser que ya 
hayas leido el capitulo 3). No parece que haya una comprobación detrás de la palabra 
"IF". La verdad es que toda condición dentro de una instrucción "IF" se evalúa a Q 

o a l, dependiendo de si es falsa o cierta. Por tanto, si escribes: 


79 IF a=b THEN ...... 


la "a = b" se sustituye por | si sus valores son el mismo, y por cero si no lo són. 
Dado que Itipo solo posee el valor f o el valor 1, estamos ahorrando un paso en la 


evaluación y el resultado queda más bonito que si pusieramos "IF Itipo - Y THEN 
GO SUB companum. 


Vamos ahora a comprobar comp. Si comp es menor que cero, queremos sacar r$ y 
coger el siguiente registro del fichero para sustituirlo: 


538 IF comp<8 THEN GO SUB punza: GO TO 488 


Si no lo es, tenemos que sacar el registro corriente adicional. Pero no olvides que 
solo podemos sacar lo que hay en r$, y su contenido corriente tendrá que ser depositado 
y recuperado antes y despues de este proceso: 
540 LET t$=r$: LET r$=b$(ap): GO SUB punza: 
LET r$=t$: LET ap=ap+1: GO TO 498 


Observa el irse a la 490 al final. No regresamos a la 480 porque no hemos vaciado 
todavia el registro corriente del fichero, asi que no necesitamos ningun otro! 


MAS SUBRUTINAS 


Ahora viene la recapitulación. Las subrutinas citadas con abandono temerario a partir 
de la rutina de agregación, tendrán que escribirse. Le hemos dado los números de 
línea en que van a Coment y desde luego, tendrán que ser inicializadas al comienzo 
del programa: 


sacaclave 7800 
cabosueltos 7600 
compalit 7400 
companum 7200 
ordena 7000 


la de sacaclave tiene primero que preguntar al usuario cuál es el campo de clave: 
7888 DIM k$(9): INPUT “Teclee nombre del campo clave *“¡k$ 


kS será un nombre de campo a partir del segundo octeto. En otras palabras, no incluirá 
el carácter que marcha la indole del campo. Parece más natural teclear "cantidad" 

y no "ncantidad", ya que la "n" no es esencial porque tenemos esa información dentro 
de n$. 


Ahora tenemos que examinar la tabla n$ buscando kS; pero tendremos que guardar 
registro de cuántos octetos llevamos examinados. Asi que adoptemos este procedimiento: 
supongamos que es el primer campo el que vamos a examinar, asi que comienzo = l. 

Si no lo es, daremos un bote a comienzo de w (2), de forma que apunte ahora al comienzo 
del segundo campo. Si ese no es el que queremos, bombearemos comienzo con w (3) 

y asi sucesivamente. 
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LET comienzo=1 

FOR p=2 TO 11 

IF n$(p>(2 TO >=k$ THEN GO TO 7868 
LET comienzo=comienzo+w(p) 

NEXT p 

LET termino=comienzo+w(p)-1 


(nota: k$ debe tener 9 

octetos de longitud porque está 
siendo comparado con los 
últimos 9 octetos de cada uno 
de los elementos de n$) 


Ahora podemos identificar la indole del campo examinando el primer octeto del elemento 
de n$ al que está apuntando p: 


7878 IF n$(p,1)="c" THEN LET ltipo=1' 
7888 IF n$(p,1)="n" THEN LET 1tipo=8 
7898 RETURN 


Realmente, no hizo mucho daño, ¿o si? 


Ahora vamos con cabosueltos. Si hemos llegado primero al final del fichero, tenemos 
que vaciar el buche de registros a insertar. En caso contrario, tenemos que copiar 
el resto del fichero. Asi que la rutina es bastante directa: 


7608 IF ap»nr THEN GO SUB copiresto: RETURN 
76109 FOR p=ap TO nr 

76208 LET r$=b$(p> 

76308 GO SUB punza 

7648 NEXT p 

7658 GO SUB cierre 

76608 RETURN 


y si copiresto está en la 7700: 


7748 GO SUB punza 

7718 GO SUB pinza 

7720 IF r$( TO 2>=")/) " THEN GO SUB cierre: RETURN 
7738 GO TO 7788 


compalit y companum son bastante fáciles: 


7409 IF s$<t$ THEN LET comp=-1 
7418 IF s$=t$ THEN LET comp=8 
74209 IF s$>t$ THEN LET comp=1 
7438 RETURN 


72898 IF VAL s$<VAL t$ THEN LET 
7218 IF VAL s$=VAL t$ THEN LET 
7228 IF VAL s$>VAL t$ THEN LET 
7238 RETURN 


LA RUTINA DE ORDENAMIENTO 


Finalmente, necesitamos ordena. Si has leido Fácil Programación, recordarás que 
presenté un algoritmo de ordenamiento por "burbuja" en los Capitulos de depuración. 
Aquí lo usaremos de nuevo. Y no es la forma de ordenar más eficaz o elegante que 
se haya imaginado nunca (de hecho, es casi lo contrario) pero sí es simple y dado 
que b$ no es una tabla enorme, no tardará mucho en ejecutarse. 


70898 LET inc=1 

7085 LET testigo=8 

7018 FOR p=1 TO nr-inc 

7020 LET s$=b$(p>(comienzo TO termino): 
LET t$=b$(p+1>(comienzo TO termino) 

7838 IF ltipo THEN GO SUB compalit 

70848 IF NOT 1tipo THEN GO SUB companum 

79850 IF comp>08 THEN LET t$=b$(p>: LET b$(p>=b$(p+1): 
LET b$(p+1)=t$: LET testigo=1 

7068 NEXT p 

7079 IF testigo>»8 THEN LET inc=inc+1: GO TO 7085 

7888 RETURN 


Así, en retrospectiva, la de agregar ha requerido bastante más esfuerzo. Pero es 
probablemente la que tiene mas trucos de todas las rutinas del menu. 


SUPRIMIR 


Ahora iremos cuesta abajo durante un rato para escribir la de suprimir: 


689 INPUT “Cuantos registros?*";¿nr (halla los límites de los campos 


618 GO SUB sacaclave “clave y los usa para establecer 
6208 DIM d$tnr,termino-comienzo+1> la dimensión de la tabla adecuada) 


630 FOR p=1 TO nr 
648 INPUT “Clave a suprimir coloca la tabla de claves 
(solo clave) :";¡d$(p> a suprimir dentro de d$ 


659 NEXT p 


668 GO SUB pinza 


678 IF r$( TO 2>="//" THEN GO SUB 
cierre: RETURN busca la concordancia entre 


$88 FOR p=1 TO nr la clave de r$ y lo reseñado 

$99 IF r$(comienzo TO termino)=d$(p> en d$. Si encuentra una, coge 
THEN GO TO 468 el siguiente registro. 

799 NEXT p No la ha encontrado, asi 

718 GO SUB punza que saca el registro... 

728 GO TO 668 y consigue otra. 


Progresando, siempre progresando... 


ESCRUTANDO 


Antes de precipitarnos donde ni los ángeles se atreven, debieramos hacer algunas 
consideraciones serias sobre cómo queremos que se comporte la rutina de escruta. 

La cosa más simple a hacer, sería permitir que el usuario tecleara una única clave, y 
luego ir leyendo a través del fichero, mostrando en la pantalla cada uno de los elementos 
que tengan esa clave. Para decidir si eso sería adecuado, intenta ponerte en la posición 

de usuario e imaginar la clase de preguntas que le gustaría hacer. Volvamos al fichero 

de cuentas bancarias como un ejemplo conveniente. Si hay un campo que indica que 

una partida es deducible de impuestos, entonces el usuario pudiera muy bien desear mostrar 
todos los registros en que en ese campo dijera "si". Por otro lado, él podría querer mostrar 
todos los registros que hacen referencia a cheques sacados por más de 40.000 ptas., 

o a todos los números de cheque mayores de 3183472, o a cheques entre 8 de julio de 


1981 y 5 de septiembre de 1982. 


En otras palabras, es muy probable que desees considerar una gama de teclas y no 
solamente una, asi que debieramos permitirle ambas posibilidades. En segundo lugar, 
¿Querrá siempre mostrar los registros que encuentre durante la búsqueda? Ciertamente, 
como minimo le gustará tenerlos impresos. Pero hay otra posibilidad que mejora 
impresionantemente el aprovechamiento del sistema sin que implique ningún sudor 
significativo (bueno, no sudor extraordinario) por nuestra parte, es permitirle que los 
registros encontrados durante la búsqueda sean grabados en un nuevo fichero. De esta 
manera, se pueden usar búsquedas sucesivas para aislar combinaciones de, condiciones. 
Por ejemplo, si necesitamos una lista de todas las partidas deducibles de impuesto que 
superen las 29.990 ptas. en cantidad, generariamos primero un nuevo fichero con todas 


las partidas deducibles, y luego lo escrutariamos para ségregar todas las partidas de 
mas de 29.009. 


Dije que era simple de preparar. Todo lo que entraña, es que habiendo encontrado un 
registro de los buscados, citemos a la rutina exreg para que lo presente en pantalla, 
prexreg para que lo imprima, o punza para que lo saque a un fichero. 


Así que vamos a por ello: 


888 GO SUB sacaclave 
818 IF ltipo THEN DIM k$C(termino-comienzo+1): 
811 INPUT “Clave de busqueda:"¡k+$ 
829 IF NOT 1tipo THEN 
INPUT "Gama de valores__cota inferior:";cotainf, 
“cota superior:";cotasup 


Realmente se necesita ya un poquito de explicación. Obviamente, la primera labor es 
determinar qué campo se va a usar como clave durante el recuento del fichero, de aquí 
que citemos a sacaclave. Luego, si la clave elegida es de indole litérica, el concepto 
de gama apenas tiene significado la no ser que quieras tratar con una gama de teclas 
alfabéticas, como todos los nombres entre Garcia y Pérez, pero aquí no estamos 
considerando esto. Es suficientemente fácil si necesitas hacerlo. Así que únicamente 


solicitamos una única clave de búsqueda (que debe concordar con la longitud del 
campo correspondiente del registro -de ahi que usemos DIM). Sin embargo, si la 
clave es de indole numerica, si preguntamos por una gama de claves. 


Luego, necesitamos saber qué opción de salida se va a elegir: 


8308 INPUT "Pantallac1)>,Impresora(2)»Cassette(3):";¡opt 


Ahora, ya podemos comenzar el escrutinio del fichero: 
848 GO SUB pinza 


858 IF r$( TO 2)="))" AND opt=3 THEN GO SUB cierre: RETURN 
8609 IF r$( TO 2)="!) " THEN INPUT "Pulse para continuar";k$: RETURN 


Esto es un trozo de código ligeramente embrollado. El problema es que, cuando se 
identifique el final de fichero hay dos posibilidades; si no hay fichero de salida, 
simplemente queremos regresar al menú; pero si sí lo hay, tenemos primeramente que 
cerrarlo. La alternativa habría sido bien saltar fuera del bucle al identificar la marca 
de final de fichero, y luego comprobar si era la opción 3; o bien, citar a otra subrutina 
que manejara las dos condiciones. No me gusta saltar a menos que esté absolutamente 
forzado a hacerlo (puede fácilmente producir código de programa que muy amablemente 
se describe como barroco), y usar una subrutina me parecería aqui, matar pulgas a 
cañonazos. (El problema surge porque el BASIC del Spectrum no tiene la cláusula ELSE 
en sus instrucciones IF. Algunos de los dialectos BASIC te permiten decir: 1F esto 
THEN eso ELSE aquéllo. Lo que es algunas veces bastante útil, y significa que en el 
Spectrum usemos como equivalente dos instrucciones IF. Ya nos ha ocurrido varias 
veces, aunque este es el ejemplo más chapucero hasta ahora). 


COMPARACIONES 


Ya basta de preocuparse por nimiedades (el BASIC es maravilloso realmente 
-honestamente, ¡gracias tio Clive!) 


878 IF ltipo THEN GO SUB miraclavel 
889 IF NOT ltipo THEN GO SUB miraclaven 


Ahora, realmente sí necesitamos un par de subrutinas más, porque el metodo de manejar 

las comparaciones numéricas y litéricas, va a ser significativamente diferente. miraclavel 
hará la comparación litérica, y miraclaven hará la numérica. Todo lo que necesitan entregar 
es un único valor "concuerda" que es l si se ha encontrado que son iguales, y cero en 

caso contrario. Por tanto, tenemos: 


coge otro registro 


898 IF NOT concuerda THEN GO TO 848 
395 LET bs=comienzo: LET es=termino 
9989 IF opt=1 THEN GO SUB rexreg 1 registro al 


918 IF opt=2 THEN GO SUB prexreg 
928 IF opt=3 THEN GO SUB punza 

925 LET comienzo=bs: LET termina=es 
938 GO TO 848 


aparato apropiado 


coge otro registro 


Observa cómo hemos tenido que conservar "comienzo" y "término", porque se ven alterados 
por exreg. 


Ahora tenemos dos pequeñas rutinas que escribir: 


miraclavel 6800 
miraclaven 6600 


la miraclavel es más fácil, dado que no hay gamas de las que preocuparse, sólo una única 
clave: 


$888 LET concuerda=8 
£818 IF k$=r$(comienzo TO termino) THEN LET concuerda=1 
68209 RETURN 


Ahora vamos con miraclaven: 


6688 LET concuerda=1 
66108 IF VAL r$(comienzo TO termino)<cotaintf OR 

VAL r$í(comienzo TO termino>>cotasup THEN LET concuerda=0 
6628 RETURN 


Así' que en miraclavel he supuesto que no hay concordancia, y luego ponemos concuerda 
a l si la hay; mientras que en miraclaven he supuesto que sí hay concordancia y ponemos 
concuerda a cero, sólo si la clave del registro de prueba es menor que la clave cota 
inferior de la gama o mayor que la clave superior de la gama. 


Y ahora tengo que hacer una confesión. La rutina de supresión sólo funciona realmente 
con claves de indole literica, tipo 1; porque la linea 690 hace una comparación directa 
de literales. Probablemente pensaste sobre ello en aquel momento. 


La razón de elegir hacerlo así es que escruta constituye una manera más potente de 
efectuar supresiones cuando las claves son numéricas. Después de todo, escrutar un fichero 
para ver una gama de claves, es exactamente lo opuesto a suprimir esas claves (usando 

la opción "punza" dentro de la escruta); asi que, por ejemplo, para suprimir todos los 
registros con claves inferiores a 50, simplemente segregamos los registros con claves 
mayores o igualesa 5P. Puedes suministrar comprobaciones y gamas más complejas de 
forma muy simple, ampliando miraclaven para incluir una segunda gama, inferior2 a 
superior2, digamos. De esa manera, puedes suprimir todos los registros con claves incluidas 
entre dos valores. (Eso también puede hacerse con la implementación corriente, pero 
significa generar dos subficheros). 
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MAS FUNCIONES 


¿Qué otras opciones pudieran necesitarse, o como minimo serian deseables? ¿Qué pasa 
con listar, que copiaria el fichero de entrada entero? Esa sería útil, pero habitualmente 
podemos prescindir de ella y usar la escruta, eligiendo una clave numérica y dándole 
unas cotas que sabemos sobrepasan la gama real de valores dentro del campo clave. 
Dado que sabemos la anchura del campo, podemos garantizar que somos capaces de hacer 
esto. Ahora bien, puede que quieras argúir que no es razonable esperar del usuario el 
uso de esa clase de artimaña, y yo estoy inclinado a creerlo asi; pero esta colección 

de rutinas está comenzando a ser bastante grande, y si sólo tienes una memoria de 16K, 
el tamaño de los buzones reservados al fichero, comienza a verse adelgazado. Asi que, 
tendriamos una buena razón para no querer ninguna nueva opción. Desde luego, si lo 

que tienes es una máquina de 48K, puedes continuar inventando rutinas nuevas e incluso 
más esotéricas, en cuanto el capricho se apodere de ti. 


Hay, sin embargo, una rutina más que sin ninguna duda, debiera estar presente. 
Debieramos estar capacitados para sumar el contenido de un campo numérico dado 
dentro de cada registro. Recuerda que cuando estábamos comentando el ejemplo de la 
cuenta bancaria, yo sugerí que los cargos debieran meterse como negativos y los abonos 
como positivos! Si simplemente pudieramos sumar todos esos campos, nos daria el saldo 
actual. Lo que es claramente, una posibilidad provechosa. 


Haremos esta opción, la 5, así que necesitamos: 
44 PRINT AT 7,11;"5/ acumular" 


y por tanto, la rutina comenzará a partir de la línea 1000, y empezaremos dando el 
valor inicial a suma: 


10880 LET sum=8 
Ahora determinemos cuál es la clave con la que vamos a trabajar: 
1018 GO SUB sacaclave 


y comprobar que la clave es numérica. En caso contrario, no podríamos hacer aritmética 
con ella: 


1028 IF l1tipo THEN PRINT "Clave no numerica": PAUSE 120: RETURN 


Ahora todo lo que tenemos que hacer es coger cada registro del fichero, sumando el 
contenido del campo clave a cada ronda, dentro de la variable suma: 


19838 GO SUB pinza 

1848 IF r$( TO 2>="))" THEN PRINT “Suma de *“;¡k$¡"= "¿sum: 
INPUT "“Pulsa”"c“para continuar”";k$: RETURN 

1058 LET sum=sum+VAL r$(comienzo TO termino) 

1968 GO TO 1838 


Solo necesitamos un comentario: si se ejecutara inmediatamente un RETURN después 

del PRINT de la línea 1040, tendrías que ser bastante rápido para ver algo a causa del 
CLS que está al acecho al comienzo de la presentación del menú. Así que la instrucción 
INPUT, meramente provee la manera de retener el sistema hasta que el usuario esté 
dispuesto a continuar. La pausa de la linea 1P2f es por la misma causa. De hecho, podría 
usarse una pausa en ambos casos, debido a que PAUSE 65535 retendria la máquina 
durante 21 minutos aproximadamente, o hasta que se pulsara una tecla. Así que para 
propósitos prácticos, el efecto es el mismo. 
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ADEREZANDO 


Y hasta aqui, es donde voy a llevarte en esta particular excursión en el manejo de ficheros. 
Como ya he resaltado, no va a ser dificil añadir nuevas rutinas al sistema de gestión 

de datos, ni tampoco la revisión de las existentes para tener en cuenta modificaciones 
menores en los requisitos. Por ejemplo, cuando consigas tus microductoras de disco, 

será muy fácil revisar el sistema adecuadamente y el programa resultante será, desde 
luego, mucho más fácil de usar, dado que el Spectrum manejará y controlará el disco 

por si mismo. 


No hay ninguna duda que ningún trozo de programa es siempre perfecto, incluso dentro 
de los términos limitados que mencionamos, y ciertamente yo no reclamo que éste lo 
sea. Así que, haré simplemente unas pocas sugerencias para aquellas revisiones que te 
gustaría hacer de forma que las cosas quedaran aderezadas y maquilladas un poquito. 


Primeramente, una observación sobre el propio sistema de ficheros en cassette. El sistema 
exige al usuario saber algo sobre el delimitador "))". Estaremos para siempre, escribiendo: 


IF rS (TO 2) = "))" THEN... 


Podríamos incorporar esta comprobación dentro de pinza, eligiendo una variable llamada 
—"fifí" (por fín de fichero, o "eof" por end of file, si eres ingles) que se pone a cero al 
iniciar y luego a 1 en pinza si los dos primeros octetos de r$ son "))". Después, cualquier 
programa de usuario podría decir: 


IF fifi THEN... 
que resulta mucho más pulcro. 


En segundo lugar, los mensajes presentados para que el usuario controle el cassette, 
están entremezclados. Sería mejor escribir separadamente cuatro subrutinas pongra, 
quigra, pontoc, quitoc, de manera que siempre se generaran los mismos mensajes en 
circunstancias similares. También son fáciles de revisar los mensajes, si los necesitas, 

o incluso sustituirlos por señales enviadas directamente a un "portal" para controlar 
directamente los motores del cassette, como ya sugerí anteriormente (véase Apéndice 

B para más detalles). Una simple revisión de los mensajes sería hacerles que parpadearan 
de forma que fueran más obvios; añadirles un pitido y una pausa por la misma razon 

(de manera que una vuelta al menú no limpiara el mensaje con excesiva rapidez). 


En tercer lugar, no hay comprobación al preparar para asegurarse que los nombres de 

los campos comienzan bien con una "l' o una "n". Y obviamente eso es vital, porque 

el resto del sistema supone que siempre es asi. Hay otras situaciones de naturaleza similar 
en que también debieran incluirse comprobaciones. (Por ejemplo, ¿qué sucede si das 

a sacaclave un nombre de campo que no existe?). 


Finalmente, por el momento, no puedes zafarte realmente del menú. Obviamente, se 
hace fácilmente incluyendo una opción 6 (escape) y hacer la línea 1200 que sea STOP. 
No lo he hecho anteriormente, porque desde luego, cada vez que añades una nueva opcion, 


la opción de salida siempre se incrementa, y la instrucción correspondiente STOP avanzaría 
de 204 en 200. 


ORDENANDO UN FICHERO 


Para redondear esta sección y terminar, te voy a dejar con un problema. 


Hay una omisión llamativa en nuestro gestor de datos. Cualquier sistema que se autorespete, 
debiera permitir que se pudiera ordenar el fichero según una nueva clave, de forma que 

por ejemplo, se tomara un fichero ordenado alfabéticamente según un campo "nombre" 

y se le reordenara numéricamente por, digamos, un campo "número de telefono". 
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He evitado el problema, porque no es fácilmente resoluble usando una sola cinta de 
entrada. En los días en que las grandes instalaciones de ordenadores usaban habitualmente 
cinta magnética en lugar de disco, se popularizó una técnica que fue pomposamente 
llamada "ordenación de congregamiento polifásico". 


Lo que sucedia es que tenías dos cintas de entrada y dos de salida. Leias un registro 

de una cinta y lo comparabas con los registros de la otra, escribiendolos en una de las 
cintas de salida, hasta que aparecía otro registro con una clave mayor que la del 

registro de referencia. En ese momento, conmutabas cintas de entrada y salida y 

repetias el proceso. Cuando ambos ficheros de entrada habían sido leidos completamente, 
usabas los ficheros de salida como nuevo grupo de ficheros de entrada y se volvía a 
repetir el proceso enteramente. Finalmente, después de unas tropecientas repeticiones, 
sólo se escribia en uno de los ficheros de salida, y la conmutación nunca tenía lugar. 

En ese momento, sabias que habías conseguido un fichero ordenado. 


¿Suena complicado? Eso es lo que yo pienso; y ahora ya sabes por qué no he encarado 
ese problema hasta ahora. (Aunque en un cierto sentido, la rutina de agregamiento de 
registros usa una cierta clase de ordenamiento-congregamiento, usando el fichero de 
entrada y el buzón con los registros a agregar como equivalente de las dos cintas de 
entrada mencionadas; la diferencia es que esas dos entradas están separadamente 
ordenadas antes de que comencemos el proceso). 


Pues bien, ¿es posible hacer el ordenamiento de un fichero en cinta con sólo una cinta 

de entrada? Bien, si lo es, y hay varios algoritmos bien conocidos. Pero hay uno que 
descubri recientemente que se adecúa a nuestros propósitos muy bien, porque nos permite 
usar la estructura de bloques que hemos incorporado en el sistema de ficheros en 
cassettes. (Y dije "descubierto" en lugar de "inventado" porque aunque nunca lo he visto 
descrito en libros, es una técnica tan simple, que estoy seguro que debe haber sido 

usada anteriormente). 


ORDENAMIENTO POR CARRACA 


Funciona como una carraca: 


Tiramos del fichero de entrada, bloque a bloque, ordenando por el método de burbujas 
cada uno de los bloques, antes de escribirlo en el fichero de salida. Ahora bien, si eso 
fuera todo lo que hicieramos, nada sucedería que fuera muy excitante, porque aunque 

el fichero estaría ordenado localmente, pudiera fácilmente suceder que una clave baja 
al final del fichero, no se desplazaria hacia el comienzo del último bloque por muchas 
veces que el proceso se repitiera. De hecho, nada nuevo sucederá si usamos esta técnica 
para volver a ordenar el fichero de salida. La razón es que, dado que las particiones 
entre bloques permanecen en el mismo lugar, los registros solamente pueden moverse 
dentro de los bloques, no entre ellos. Si pudieramos solamente cambiar las posiciones 

de las separaciones de los bloques... 


Realmente es fácil. Antes de transferir el primer bloque al fichero de salida, 
escribiriamos en él, un cierto número de registros ficticios. Para lograr los mejores 
resultados, ese número debiera ser la mitad del número de registros de un bloque. Al 
leer el fichero que está situado de esta nueva forma, las fronteras entre los bloques 
están ahora a medio camino de sus posiciones anteriores, y este "solape" permite que 
tengan lugar ordenamientos posteriores. Debemos asegurarnos que los registros ficticios 
son ignorados por el algoritmo de ordenamiento y que se suprimen de la salida de forma 
que las posiciones de las fronteras de bloques, son de nuevo cambiadas para permitir 
otra ronda de ordenamiento. En la siguiente fase del ordenamiento se vuelven a insertar 
los registros ficticios, y asi sucesivamente. Sabemos que hemos terminado cuando no 
hay posteriores cambios de posición. 


Aquí hay un ejemplo que muestra el principio. Simplemente he escrito las claves para 
mayor simplicidad, y son los números del l al 12 en orden inverso. Supondremos un tamaño 
de bloque de 4: 


En la primera pasada, ordenamos los bloques internamente e insertamos 2 registros postizos: 


D D 9 10 11 12 5 6 7 8 1 
Segundo paso: Ordenamiento de bloques y supresión de postizos. 


9 10 5 6,1 12 1 2 7 8 3 


Tercer paso: Ordenamiento de bloques e inserción de postizos: 


DD 05 6; 9% 414 1-2, 


Cuarto paso: Ordenamiento de bloques y supresión de postizos: 
5 6 1 2 9 10 3 4 ¡11 12 

Quinto paso: Ordenamiento de bloques e inserción de postizos: 
D D 1 2 5 6 3 el 9 10 

Sexto paso: Ordenamiento de bloques y supresión de postizos: 


2 el 6 


y ya lo hemos logrado! 


Siempre que haya suficiente memoria libre, no hay razón para que el bloque usado para 
ordenamiento sea también el buzón de entrada, en cuyo caso no hay razón por la que 
debieramos restringirnos al tamaño del bloque para el ordenamiento del fichero. Obviamente, 
el número de pasos necesarios para el ordenamiento total, decrece a medida que aumenta 

el tamaño del bloque. 


Y te dejo la codificación real del programa para que tú trabajes. 


Lo qu q0 dije jue, mira 
a ver coli das de 
datos puedes esTop” 

E. de el” 


Sí piensas que CANOPO es una Lata 
de carne para perros, continúa leyendo... 


18 Las Cartas Astrales 


Esta sección requiere bastante tiempo para imponer los datos -especialmente 
si decides ampliarla. Asi que no la comiences a no ser que tengas un par de horas para 
emplear, porque es una tontería pararla en la mitad. La idea es escribir un programa 


que saque los mapas de las diferentes constelaciones -Orión, Cisne, Géminis, y demás. 
Incluye como opciones: 


Un repaso automático de los mapas, nombrando las constelaciones. 
Un escrutinio por nombre de una constelación dada, dibujando su forma. 


Una prueba: la computadora dibuja una constelación y el usuario tiene que saber 
el nombre. 


Para esta ilustración sólo pondré seis constelaciones; pero el programa estará preparado 
para permitir hasta 20. Si quieres más de esas, guarda los datos en la cinta, vuelve a 
dimensionar las tablas citadas para contener los datos, y cargalos de nuevo. (Necesitarás 
pensarlo todo en más detalle, pero esta es la idea general). 


ESTRUCTURA DE LOS DATOS 


Apaga el ordenador por un momento, porque primeramente vamos a hacer un poquito 


de trabajo cerebral. "Programar primero, y preguntar después" es la receta para 
el desastre. 


Necesitamos datos para: 


Nombre latino de la constelación (Ursa Major, etc.). 

Nombre español de la constelación (Osa Mayor). 

Posiciones de las estrellas (montones de coordenadas para PINTAR). 
Magnitud (grado del brillo) de cada estrella. 


Podríamos proseguir (e.g. color de la estrella, adecuadamente exagerado para una imagen 
bonita), pero con esos ya podemos comenzar. 


Dejando a un lado por el momento, el problema de cómo-conseguir la información que 
se precisa, (hay enciclopedias) y de cómo meterla en la máquina, debemos primeramente 
decidir cuál es el formato de dicha información. Obviamente, vamos a conservar los 
nombres en tablas; asi que para 20 constelaciones diferentes, necesitamos preparar 


dos tablas litéricas de tamaño 20, digamos n$ para el nombre latino y e$5 para el nombre 
español. 


También queremos escribir en pantalla cosas como: 
Cygnus (el Cisne) 


Ahora el problema con las tablas litéricas es que todos los literales que la forman, han 
de tener una longitud prefijada. Supongamos que estipulamos que sea 12 esa longitud, 
para permitir nombres como "Andrómeda"; y que Cygnus es el elemento número l. No 
es muy satisfactorio usar la instrucción obvia: 


PRINT n$ (1); " Olel o "; eS + ")" 
porque tendríamos algo como: 
Cygnus DODODO (el Cisne DODOODODO) 


con todos los blancos incluidos. 


Hay un truco aprovechable para evitar esto. A cada literal añadimos un carácter final, 
el décimo-tercero, cuyo código nos da la longitud real que queremos usar. Asi que "Cygnus" 
iría como 


Cygnus DODODOX% 


siendo la M el carácter cuyo código es 6, la longitud de "Cygnus". (Ese es el carácter 
de control COMA PRINT, pero esta bien en tanto en cuanto no intentemos exponerlo 
en pantalla). Para mostrar el nombre "Cygnus", usamos 


PRINT n$ (1) (TO CODE n$ (1, 13) ) 
que suprime los blancos que no queremos. 


Desde luego, usamos el mismo truco en los nombres españoles; y tenemos que ser cuidadosos 
al preparar las rutinas de entrada y salida que tienen esta peculiaridad en cuenta. 


La manera obvia de preparar las coordenadas para las estrellas de una constelación, 

y sus magnitudes, es también una tabla. Necesita una dimensión de 3 para permitir la 
coordenada horizontal, la coordenada vertical y la magnitud; siendo la otra dimensión 
de, digamos, 20 para permitir que haya 20 estrellas por constelación; y otra dimensión, 
tambien de 20, que nos indique a qué constelación pertenece. Eso nos lleva al comando: 


DIM p (3, 29, 20) 


Sin embargo, eso exigiría 3 x 29 x 20 bloques de memoria, cada uno de 6 octetos de 
longitud (para un número con coma flotante), o sea, 1200 x 6 = 7284 octetos. Como 

un Spectrum de 16K tiene aproximadamente 900P octetos libres, después de preocuparse 
de los ficheros de imagen de atributos, y en el momento que el programa esté dentro 
junto con los otros datos, y dejemos a la máquina espacio para hacer sus cálculos... pues, 
con toda probabilidad, nos quedaremos cortos de memoria. Piénsalo de nuevo. 


Es estupido realmente, conservar las coordenadas como puntos de comas flotantes: solamente 
podemos pintar con coordenadas 'x”e 'y; siendo'x'un entero entre Y y 255, ey'otro entero 
entre Y y 175. Observa que (-255 es, por una extraña coincidencia, la gama de códigos 

del Spectrum. Así que, usando un solo carácter y tomando su código, podemos conseguir 

la coordenada 'x. En forma similar, tanto la coordenada 'y'como la magnitud de la estrella. 


Es ese caso, cada estrella ocupa tres posiciones. Veinte estrellas son 3 x 24 = 60, que 
pueden empalmarse convenientemente para terminar siendo una cadena de caracteres. 
Para 20 constelaciones usamos entonces: 


DIM p$ (20, 60) 
que sólo ocupa 24 x 60 = 1240 octetos -una impresionante manera de estrujar las cosas. 


Colocando todo este montón de cosas juntas, conseguimos la siguiente rutina de entrada. 
(El programa real vendrá posteriormente). 


9000 REM Rutina de entrada, puede suprimirse despues de usada 
9010 OIM né(20,13): DIM p*$(20,60) 

9020 FOR i=1 TO 20 

9030 INPUT *Nombre latino?';ya$ 

9040 LET n$Cid=at: LET n$(i1,13)=CHR$ LEN as$ 

9050 PRINT TAB 0;n$ci3( TO CODE n$(1,13)); 

9060 INPUT "Nombre español?" ;as$ 

9070 LET es$(id=af: LET e$(i,13)=CHR$ LEN as$ 

9080 PRINT TAB 14;e$(i)(€ TO CODE e$(i,13))' 

9090 LET c=1 

9100 INPUT "*Horiz.,vertic.,magnitud ';x,y,m 

9110 IF x=0 THEN 50 TO 9150 

9120 LET p$(i)(3=*c-2 TO 3%c)=CHR$ x+CHR$ y+CHR$ m 
9130 LET c=c+1: IF c>20 THEN GO TO 9150 

9140 GO TO 9100 


9150 NEXT i 
14 ————_—_——————_—_—______JJ——ÁKÉKÁ— 


LOS DATOS 


El siguiente paso a dar es meter los datos dentro de la máquina. Explicaré 
posteriormente como desarrollarlo para otras constelaciones; y puede saltarse esta 
seccion por el momento, para ver primero el resto del programa. 


Rula la rutina de entrada, y teclea todo lo siguiente cuando te lo solicite. Cada línea 
representa la respuesta a una pregunta de la máquina, observa que necesitas pulsar 
ENTER despues de las tres partidas que corresponden a una estrella. El formato de la 
pantalla no será exactamente el mismo. Teclea f Q 0 para parar. 
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Ahora, si todavia continúas conmigo, guarda este trozo en la cinta antes de que suceda 
algún percance. La forma más fácil es guardar todo, incluyendo la rutina de carga, eso 
tiene la ventaja de que puedes querer cargar algo más posteriormente. O puedes usar 
el almacenamiento de tablas: que se hace en tres pasadas, usando: 


SAVE "Latin" DATA n$ () 
SAVE "Español" DATA e$ () 
SAVE "Estrellas" DATA pS () 


que pueden ser recuperados de la cinta usando instrucciones similares, pero cargando 
en lugar de guardando. 


COMPROBACIONES Y CORRECCIONES 


Si cometes un error mientras estás haciendo esto, no se ha perdido todo. Supón que la 
quinta estrella en Leo está equivocada. Puedes teclear el comando directo: 


LET i = 4: LET c = 5: GO TO 9100 


luego tecleas el valor correcto para x, y, m: y finalmente STOP. Para comprobar lo 
metido, utiliza esta rutina: 


9500 FOR i=1 TO 20 

2310 PRINT néci)c TO CODE n$(i,13)) 

9320 PRINT es$(i)( TO CODE e$(i,13)) 

9330 FOR t=1 TO 60 STEP 3 
IF p+(i,to0="0" OR p$(i,t)="D" THEN 60 TO 9370 
PRINT CODE p*$Ci,t);"0";: 
FPRINT CODE p*$c(i,t+1);*0' 
PRINT CODE p+Ci,t+2) 
NEXT t 
NEXT i 


Sólo úsala si estás preocupado sobre la exactitud: si has comprobado la imagen en la 
pantalla durante la pasada de imputación de datos no sería necesario. 


Si tienes impresora, cambia cada PRINT a LPRINT, y tendrás una copia en papel permanente 
para tu referencia. 


ELABORANDO LOS DATOS 


Si quieres añadir otras constelaciones, debes determinar qué números vas a imputar. 


La manera más simple es dibujar la constelación en un trozo de papel reticulado, a poder 
ser con la retícula de 256 x 176 marcada sobre él. (Realmente yo usé una retícula de 

64 x 44 y multipliqué por 4). Comienza con un libro sobre astronomia: Norton's Star 

Atlas, publicado por Call e Inglis, es bueno. Copia las estrellas sobre un papel transparente, 
y transfiere los resultados a tu retícula; y cuidadosamente saca las coordenadas, 
comprobando el atlas de las estrellas para hallar la magnitud. Mira la figura 18.1 para 

los datos de Leo. 


+E ] 


E 


55] LI 
1 
EL 0 0 98 


PARA AA e 


da 
dd 
a 


+ 


EE 


dla 


AL 
ia 


[] 
Ll 
SUBS 
OA 
0 
Figura 18.1 Datos de entrada para Leo. 
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Necesitarás escribir una pequeña rutina para transferir las coordenadas en pantalla a 
pS, y para asignar adecuadamente la magnitud. Es un proyecto para ti si estás dispuesto. 
La variable sistemal COORDS (Capitulo 6) puede demostrar su utilidad. 


Figura 18.2 Imagen de la Osa Mayor. Véase el famoso Carro arriba a la izquierda. 


EL PROGRAMA PRINCIPAL 


Puedes suprimir las rutinas de carga y comprobación si lo deseas. Simplemente no teclees 
RUN, o perderás los datos y tendrás que volver a recuperarlos de la cinta. Usa en su 
lugar GO TO 1. 


Obviamente, necesitamos una rutina que muestre las estrellas. Esta rutina pinta una 
estrella, cuyo tamaño está determinado por la magnitud m, y la pinta en la posición 
X, y» (Las estrellas de magnitud 1 son las más brillantes, luego la 2, luego la 3, etc.) 
La constelación es el número i: 


REM Finta estrellas 
FAPER 0: INK 7: BORDER 0: CLS 
FOR t=1 TO 40 STEP = 
LET k=CO0E p+(i,t) 
OR k=43 THEN  FETLIEN 
x=k2 LET y=CO0E p+(i,t+1): 
LET m=CO00E pci, t+2) 
60 SUB 25500 
NEXT t 
RETUEN 
FEM Cibuja una estrella 
LET s=10-2*m 
PLOT =,v-=s: OFAW 0,2%s 
PLOT =-s, vi: ORAW 25,0 
FLOT =s/2,y=s/2 : DORAW s,s 
PLOT x-s/Z2,v+s/Z1 DEAW s,-s 
RETUEN 


Ahora, si queremos tres opciones: lista automática, búsqueda por nombre y prueba de 
conocimiento. Vamos a preparar un pequeño menu: 


100 CELS : FEINT "Mapas estelares” 

110 FEINT "'Opciones: 

1. Lista Automatica 

Z. Busqueda por nombre 
3. Prueba de Astronomia” 
a 


120 INPUT *Numero de la opcion?" opt 


Ya eres veterano en este juego, así que te dejamos la tarea a tus gustos personales. 


130 60 SUB 1000*0pt 
140 FALSE 0: CLS : 60 TO 100 


Ahora escribimos las opciones: 


1000 FOR i=1 TO £ 

1010 60 SUB =000 

1020 FRINT AT 0,0;n*+(i3C€ TO CODE n$(1,13)); 
'D(*pezcioc TO CODE est(1,13)3;")" 

1030 INPUT *Pulsa ENTER para continuar”; d+ 

1040 NEXT i 

1050 FETUEN 

2000 INPUT "Nombre latino de la constelacion”';q+ 

2010 FOR i=1 TO € 

2020 IF n$cioc TO CODE n$(1,13))<>q$ THEN 650 TO 2045 

2030 60 SUB 5000 

2040 FRINT AT 0,0;9+%;"0(*¡esci)Cc TO CODE es(i,13)5%)” 

2045 NEXT 1 

2050 RETURN 

3000 LET i=INT (1+4*RN0) 

3010 60 SUB =000 

3020 INPUT 'Que constelacion es esta”?';q+ 

3030 IF gé$=n$(i12(€ TÓ CODE n$+(i1,13)) 
THEN FREINT AT 0,0; FLASH 1;"MUY BIEN!” 
IF qx nFCioc TO CODE n$(1,13)) 
THEN FFEINT AT 0,0; FLASH 1;*Lo siento, no es correcto": 
PEINT AT 1,0; FLASH 0:n$(i3(€ TO CODE n$+(1,13) 

3050 RETUEN 


Para ensayar con esto, teclea GO TO 1 (recuerda, no RUN), y sigue las instrucciones 
de la pantalla. 


Si has puesto más de 6 constelaciones, necesitas cambiar el valor 6 de las líneas 1909, 
2010 y 3000 según el nuevo número. 


Deposita en cinta todo esto, usando algo como: 
SAVE "Mapastelar" LINE 100 


y a continuación, rulará automáticamente, inmediatamente después de ser cargado, 
evitando el peligro de borrar todas las variables si tienes la costumbre de teclear RUN. 


SOLUCIONES A LOS PROBLEMAS DE CRIPTOANALISIS (Pág. 106) 
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Desde luego, no serás capaz de determinar toda la tabla de código: sólo las letras 
realmente hemos usado. 


APENDICE A: El Sistema de Ficheros en Casette 
Una descripción para referencia 


Aunque en este libro, lo hemos usado únicamente dentro del Gestor Spectrum de 
Información, no hay desde luego, ninguna razón por la que no pudieramos incorporarlo 
a otros programas. Para hacerlo, simplemente tienes que meter todas las rutinas 
conjuntamente con sus identificadores y números de linea en la que comienzan, y 
depositarlo en cinta como un programa llamado "cfs". Cuando tengas en memoria el 
programa con el que quieres usar cfs, simplemente teclea: 


MERGE cfs 


y pon en marcha la cinta, como si estuvieras haciendo una carga normal. El efecto es 
congregar los dos programa, el que hay en memoria con el recuperado de la cinta, y 
conseguir de una forma fácil agregar cfs (o cualquier otro utensilio de programación) 
a Cualquier programa. 


Desde luego, el programa principal no debe usar ninguno de los números de línea que 
use el programa agregado, y debe procurarse que no haya ningún conflicto en el uso 
de los nombres de las variables (en caso contrario, sería fácil hacer que q valiera 1; 
Citar a una subrutina, y encontrarte que misteriosamente q ha pasado a valer 14), Este 
apéndice provee la información necesaria para evitar esos conflictos. 


Doy un listado completo de cfs, junto con las descripciones de las gestiones que cada 
rutina lleva a cabo, y de los nombres de las variables que usa. Observa que el listado 
no es idéntico al dado en el texto. Se han hecho las mejoras que hemos comentado en 
algún lado, y también hemos renumerado algo. 


NUMEROS DE LINEA 


cís usa la línea 1 y todos los números de línea a partir de la 9000. 


NOMBRE DE LAS VARIABLES 


Las variables usadas por cfs pueden clasificarse en cuatro clases: 


l. Global 


Una variable global es una que se usa en varias de las rutinas cís, y consecuentemente 
nunca debe ser redefinida en el programa usuario de las rutinas. 


Por ejemplo, iniciar prepara una tabla llamada n$ que contiene los nombres de los campos 
en los ficheros. Si el usuario la redefine en alguna parte de su programa, todos los 
nombres de las variables se convertiran inmediatamente en ristras de blancos. 


2. Local 

Son variables que sólo se utilizan dentro de una rutina cfs, pero que no tienen ningún 
significado fuera de ella. El programa de usuario puede usar esos nombres, siempre y 
cuando no necesite que sus valores se mantengan antes y después de citar a una rutina 


cís que las usa localmente. Por ejemplo, inreg usa p y c como contadores de bucles. 
Si escribimos: 


FOR p = 1 TO 4 
GO SUB inreg 
NEXT p 


ese bucle solamente efectuará una ronda si el bucle interno de inreg que usa la p, se 
ha ejecutado cuatro o mas veces!. 


Pero escribiendo: 
FOR p= 1 TO 4 
cualquier otra cosa 


NEXT p 
GO SUB inreg 


es perfectamente válido y funciona. 


3. Parámetros entregados a las rutinas cís 

Son los nombres de las variables que sirven de argumento para la rutina cís. Por ejemplo, 
r$ debe tener el valor preparado al citar punzar para que su contenido sea grabado en 

la cinta. 


4. Parámetros devueltos por las rutinas cís 

Son las variables que la rutina cfs ha elaborado como resultado para ser usados 
subsecuentemente por el programa usuario. Por ejemplo, r$ es devuelto por pinzar, con 
los datos "lectados'" del cassette. 


VARIABLES GLOBALES 


Uso 


Longitud del registro en octetos. 
final de fichero: Y = no final, 1 = final 
Nombre del fichero de entrada 
Nombre del fichero de salida 
puntero al siguiente registro en el buzón de entrada 
Tabla de 2D que actúa como buzón de entrada. Su tamaño 
se determina por w (1) y Ipr 
Número del bloque de entrada corriente. 

n$ (11, 10) Tabla con los nombres de hasta 1f campos por registro. 
Cada nombre de campo puede tener hasta 1f octetos. 

pex Puntero al siguiente registro en el buzón de salida. 

es( ) Tabla de 2D que actúa como buzón de salida. El tamaño 
es igual que para i$. 

exbc Número del bloque de salida corriente. 

testigo Puesto a cero cuando no está activado el cassette; puesto 
a l si el cassette está activado. 

w (11) Tabla con las anchuras de los campos, en octetos, 
correspondientes a los campos con nombre en n$. w (1) contiene 
el número de registros por bloque. 


DESCRIPCIONES DE LAS RUTINAS 


cierre 
Acción Graba marcas de final de fichero en el buzón de salida. 
Parámetros recibidos Ninguno 
devueltos Ninguno 
Variables globales afectadas Ninguna (pero nota que r$ es sobreescrita) 
Variables locales Ninguna 
rutinas cfs citadas internamente punzar 


154 


Nh 


Listado 


9748 LET rs$="j)"; 
9759 GO SUB punza 
9768 LET r$="ultimal" 
9778 GO SUB punza 
9788 RETURN 


cogebloque 


Acción Mete un bloque del fichero de entrada 
Parámetros recibidos Ninguno 
devueltos Ninguno 
Variables globales afectadas inbc, iS, pin 
Variables locales m 
rutinas cÍs citadas internamente avipin 


Listado 


98080 LET m$=STR$ ¡nbc 
9819 GO SUB avipin 

9828 LOAD f$+m3$ DATA ¡s$( 
9825 POKE 23692,255 
9838 GO SUB avipin 

9848 LET pin=1 

9858 LET inbc=inbc+1 
98608 RETURN 


iniciar 

Acción Inicializa el sistema y establece los nombres y 
descripciones de los ficheros. Los ficheros postizos 
se denominan "nulo" 

Parámetros recibidos Ninguno 

devueltos Ninguno 

Variables globales afectadas n$, w, pin, pex, imbc, exbc, Ipr, fifi, testigo, f$, 
85, iS, es 

Variables locales 19) 

rutinas cÍs citadas internamente prepare, avipin, avipun, arredre 


Listado 


9508 DIM n$(11,180>: DIM w(11)>1 LET lpr=81 GO SUB arredro 
9585 INPUT “Nombre fichero de entrada: "348 
9518 IF f$="nulo" THEN GO SUB prepare: GO TO 9525 
9514 GO SUB avipin 

9515 LOAD f£$+"h1”" DATA n$(> 

9528 LOAD £$+"h2" DATA w() 

9521 GO SUB avipin 

9525 INPUT "Nombre fichero de salida: 

9538 FOR p=2 TO 11 

9535 LET Ipr=lpr+w(p) 

9548 NEXT p 

95945 DIM ¡$(w(1),lpr>: DIM es$(w(1)>,1pr> 

9547 IF g$="nulo" THEN RETURN 

9548 GO SUB avipun 


9558 SAVE g$+"h1" DATA n$(> 
9555 SAVE g$+"h2" DATA w(> 
9557 GO SUB avipun 

9368 RETURN 


inreg 


Acción Avisa para que impongas por teclado un registro, 
campo a campo, y coloca el resultado dentro de 
r$ 

Parámetros recibidos Ninguno 

devueltos rS 

Variables globales afectadas Ninguna 

Variables locales a5, comienzo, p, C, término 

rutinas cÍs citadas internamente Ninguna 


Listado 


9888 DIM a$(1pr> 

99818 CLS : LET comienzo=1 

9828 FOR p=2 TO 11 

9825 IF n$(p,1>="7" THEN GO TO 9128 

9838 PRINT AT p,8;n$(p,1);":";¡AT p,4;n$(p>(2 TO > 
9948 FOR c=1 TO w(p> 

9058 PRINT AT p,14+c;"_" 

9869 NEXT c 

90708 LET termino=comienzo+w(p)-1 

99888 INPUT (n$(p>(2 TO >>;a$í(comienzo TO termino) 
99899 PRINT AT p,15;ja$(comienzo TO termino) 

9188 LET comienzo=termino+1 

9118 NEXT p 

9128 LET r$=a$ 

9138 RETURN 


avipin 


Acción Avisa que pongas o quites el cassette en el modo 
"pinzado de cinta" 
Parámetros recibidos Ninguno 
devueltos Ninguno 
Variables globales afectadas testigo 
Variables locales Ninguna 
rutinas cfs citadas internamente Ninguna 


Listado 


9148 PRINT — INVERSE 1;"Marche" AND NOT testigo; 
“Quiete" AND testigo;" Rascando" 

9158 BEEP .2,15: PAUSE 6: BEEP .3,28: PAUSE 88 

9168 LET testigo=NOT testigo 

9178 RETURN 


avipun 


Acción Avisa que pongas o quites el cassette en el modo 
"punzado de cinta" 
Parámetros recibidos Ninguno 
devueltos Ninguno 
Variables globales afectadas testigo 
Variables locales Ninguna 
rutinas cÍs citadas internamente Ninguna 


Listado 


9388 PRINT INVERSE 1;"Marche" AND NOT testigo; 
"Quiete”" AND testigo;” Grabando” 

9318 BEEP .2,208: PAUSE 4: BEEP .3,5: PAUSE 88 

2328 LET testigo=NOT testigo 

9338 RETURN 


exreg 


Acción Expone en pantalla los campos del registro r$ 
Parámetros recibidos rS 


devueltos Ninguno 
Variables globales afectadas Ninguna 
Variables locales p, comienzo, término 
rutinas cís citadas internamente Ninguna 


Listado 


9288 LET comienzo=1 

9218 FOR p=2 TO 11 

9215 IF n$(p,1>="0" THEN PRINT : RETURN 
9228 PRINT n$(p,1>;":";TAB 4;n8(p>(2 TO >3 
9248 LET termino=comienzo+w(p>-1 

9258 PRINT TAB 15;r$(comienzo TO termino) 
9268 LET comienzo=termino+1 

9278 NEXT p 

9288 PRINT : RETURN 


dejabloque 


Acción Deposita en la cinta un bloque de registros 
Parametros recibidos Ninguno 


devueltos Ninguno 
Variables globales afectadas exbc, pex 
Variables locales m$ 
rutinas cÍs citadas internamente Ninguna 


Listado 


9988 LET m$=STR$ exbc 
97918 GO SUB avipun 

9928 SAVE g$+m$ DATA es$(> 
9938 GO SUB avipun 

9948 LET pex=8 

9959 LET exbcz=exbc+1 

9968 RETURN 


pinza 
Acción 


Parámetros recibidos 
devueltos 
Variables globales afectadas 
Variables locales 
rutinas cís citadas internamente 


Capta el siguiente registro del buzón de entrada 
y lo coloca en r$ 


Ninguno 

r$ 

pin, fifi 
Ninguna 
cogebloque 


Listado 


9688 IF pin=8 OR pin>»w(1) THEN GO SUB cogebloque 
9618 IF ¡i$<pin>< TO $)="ultimal”" THEN 

PRINT "Intento de sobrepasar *fifi": STOP 
9620 LET r$=i$(pin) 
9625 IF r$( TO 2)=")) * THEN LET €ifi=1 
96308 LET pin=pin+1 
9648 RETURN 


Comentario: Observa que fifi vuelve a ponerse a cero en arredre. Así que si va a 
volverse a tratar un fichero de entrada sin hacer una segunda cita a 
iniciar, y se comprueba el fin de fichero mediante la forma IF fifi THEN... 
es necesario meter GO SUB arredre al comienzo del segundo tratamiento 
del fichero. Asi se ponen a cero también los punteros y contadores. 

arredre 

Acción Vuelve hacia atrás los punteros de buzones, los testigos, 

etc. 

Parámetros recibidos Ninguno 

devueltos Ninguno 

Variables globales afectadas pin, pex, inbc, exbc, fifi, testigo 

Variables locales Ninguna 

rutinas cís citadas internamente Ninguna 


Listado 


9978 LET pin=0: LET pex=08: LET inbc=8: LET exbc=08: 
LET fifi=80: LET testigo=8 
9988 RETURN 


prepare 
Acción Permite al usuario definir la forma de los registros 
y de los bloques 


Parámetros recibidos Ninguno 
devueltos Ninguno 
Variables globales afectadas n$, w 
Variables locales nf, p 
rutinas cís citadas internamente Ninguna 


qL[ui—z— 2 NM 


Listado 


9489 INPUT "Numero de campos: *;¿nf 
9485 CLS 


9418 FOR p=2 TO nf+1 

9415 PRINT AT 10,2;"CampoU" ¡p-1 

9428 INPUT "Nombre del campo (precedido de 1/n>:";¿n$<p> 
9422 IF n$(p,1><>"1" AND n$(p,1)<>"n" THEN GO TO 9428 
9425 INPUT "Numero de octetos: "¡w(p) 

9438 NEXT p 

9435 CLS 

9448 INPUT "No. de registros por bloque: "j¿w(1) 

9445 RETURN 


punza 


Acción Larga el registro r$ al buzón de salida 
Parámetros recibidos r$ 


devueltos Ninguno 
Variables globales afectadas pex, es 
Variables locales Ninguna 
rutinas cfs citadas internamente dejabloque 


Listado 


9790 LET pex=pex+1 
9710 LET e$(pex>=r$ 


9728 IF pex=w(1) OR r$="ultimal" THEN GO SUB dejabloque 
9738 RETURN 


INICIALIZACIONES EN LA LINEA 1 


1 LET cierre=9748: LET cogebloque=9888: LET ¡iniciar=?5081 
LET inreg=9000: LET avipin=9149: LET avipun=9300 : 
LET rexreg=9280: LET dejabloque=9988: LET pinza=9?600: 
LET arredro=9970: LET preparez=94980: LET punza=9?7088 


APENDICE B: Control Automático del Cassette 


Ya se ha mencionado que, en principio, no hay dificultad en controlar automáticamente 
los motores del cassette. Esta es una técnica especifica para hacerlo. 


Un portal de entrada/salida aconsejable, es el circuito integrado ZX Spectrum, 
comercializado por Kempston (Micro) Electronics. Tiene tres portales de 3 bits dentro - 
de él que pueden ser programados para actuar como portales de entrada o de salida,o 
combinaciones de ambos. En lo que a nosostros nos concierne, sólo se necesitan 2 bits 
de los 24 disponibles. Así que elegirémos los bits bajos (bit f) de los portales B y C para 
controlar respectivamente los mandos del cassette PLAY y RECORD. (Lo hacemos 
porque las conexiones a los enchufes para esos portales son los mismos, mientras que 
para el portal A son ligeramente diferentes). 


Desde el portal, no se puede excitar directamente un relé, dado que sólo se pueden 
emplear pequeñas corrientes (niveles TTL). Asi que la salida del circuito se emplea en 
conmutar un transistor, tal y como se muestra en la figura Bl. 


Cassette 
Remote Relay coil (120 ohms minimum) 


Jack 


Pont B (or C) 


Figura Bl 


Los portales se preparan en el modo de salida mediante la instrucción: 
OUT 127, 128 


Que puede insertarse al comienzo de la rutina iniciar. 


Luego es necesario poner a 1 el bit Y del PORTAL B para activar el cassette en el modo 
de reproducción, y poner a l el bit Y del PORTAL C para activarlo en el modo de 
grabación. Para hacerlo, simplemente sustituye las subrutinas avipin y avipun tal y como 
sigue: 
avipin: 9140  LET testigo = NOT testigo 
9159 OUT 63, testigo 
9164 RETURN 


avipun: 9304  LET testigo = NOT testigo 
9314 OUT 95, testigo 
9320 RETURN 


siendo 63 y 95 las direcciones asignadas a los portales B y C, respectivamente. 


El circuito de la figura Bl está basado en uno diseñado por Kempston (Micro) Electronics 
cuya direccion es 60, Adamson Court, Hillgrounds Road, Kempston, Bedford MK42 8QZ. 


APENDICE C: Una Guía para el Usuario de SDM 
El Gestor Spectrum de Información 


SDM es un sistema simple de gestión de ficheros, que permite el uso de un fichero de 
entrada y un fichero de salida. Ambos ficheros pueden especificarse como no existentes 
si se les da el nombre reservado "nulo". Los registros son de longitud prefijada y 
constante, y pueden constar de 10 campos, teniendo cada uno un nombre y una longitud 
definida por el usuario. El nombre de un campo consta de 1f caracteres como máximo, 
el primero de los cuales debe ser "1!" o "n" (sólo minúsculas) para indicar si el campo 

es de indole litérica o numérica. Esta distinción es importante, porque determina cómo 
se van a efectuar las adiciones de registros al fichero y la escruta del fichero en busca 
de un registro. Por ejemplo, un intento de segregar aquellos registros cuyo tercer campo 
contiene el valor 357, no encontrará un registro cuyo tercer campo 357. 0 o +357, si 

ese campo ha sido declarado de índole "I". Además, es ilegal intentar sumar campos 
cuya indole es "l". Por eso los llamamos litéricos. 


Los nombres del fichero están definidos por el usuario. Deben seguir las reglas normales 
de los nombres de ficheros en BASIC, excepto que su longitud no debe sobrepasar los 

8 caracteres (2 menos que la restricción en BASIC). Si el fichero va a ser muy largo, 
puede ser más seguro imponer un límite de, digamos, 6 caracteres por nombre. La razón 
es que el nombre de fichero que finalmente se pasa a BASIC, está formado a partir del 
nombre del fichero dado por el usuario más un número de bloque correspondiente a esa 
sección. De hecho, los bloques de un fichero que se llame "nomefich" son: 


nomefichhl 
nomefichh2 
nomefichf 
nomefich]l 
nomefich2 
etc. 


Los primeros dos bloques, forman la cabecera del fichero y contienen la descripción 
para el sistema, de los registros y la estructura de los campos de ese fichero. A 
continuación vienen los bloques de datos, que son numerados secuencialmente a partir 
de cero. Consecuentemente, un fichero que tenga más de 100 bloques y un nombre de 
8 posiciones, vulnerará las reglas del BASIC, y el programa se "rumpirá" con error F. 
En la práctica, sin embargo, no es probable un fichero de ese tamaño. 


Las operaciones permitidas por SDM son: 


l. La creación de ficheros. 

2. La modificación de los ficheros existentes agregando o suprimiendo registros, o 
mediante la creación de subficheros, segregados del fichero principa). 

3. La escruta de ficheros, en busca de registros que tengan determinados atributos. 

4. La totalización del valor de un determinado campo de todos los registros del fichero. 


Estas operaciones son accesibles mediante un menú que se muestra después de haber 
concluido una de las operaciones. Observa, sin embargo, que la repetición del menú es 
para facilitar diversas operaciones sobre el mismo fichero. Si las operaciones a realizar 
son sobre ficheros diferentes, el programa debe ser "rulado" de nuevo. 


ACCION DE SDM 


Después de haber cargado SDM y haber tecleado RUN, aparece en pantalla el mensaje 
"Gestor de Datos Spectrum", seguido de un aviso solicitando el nombre del fichero de 
entrada. Si tuvieras tal fichero, depositado en cassette, deberías introducir la cinta en 
el cassette y teclear el nombre correspondiente. El sistema te solicitaría a continuación, 
que activaras el cassette para poder recuperar los dos bloques de cabecera. Luego te 
pediría que apagaras el cassette. 


Si no hay fichero de entrada, debieras teclear la palabra "nulo". El sistema te requeriría 
después la definición del fichero mediante los siguientes avisos. 


N2 de campos Número de campos de un registro. 


Estos pasos Nombre del campo Teclea el nombre del campo precedido 

se repiten (primer caracter: por lo por n, y que conste de 9 caracteres 
para cada 1/n) como máximo. e.g. un campo que contenga 
campo. El un nombre puede ser "lnome", uno que 
número sea una cuenta bancaria puede ser 
asignado al '"nbal". 

campo dentro 

del registro 

se muestra en 

un aviso adicional. 


N9 de octetos Es el número máximo de octetos que 
va a ocupar cualquier valor de los 
asignados a ese campo cuyo nombre 
acabas de imponer. 


N2 de registros Para simplicidad de la operación, debiera 
por bloque elegirse suficientemente grande, 
típicamente 20 o más. Sin embargo, 
las restricciones de memoria y del tamaño 
de cada registro, crean una barrera 
práctica para tamaños grandes de bloque, 
en especial en una máquina de 16K. 
Los tamaños máximos para el bloque 
pueden fácilmente calcularse en un 
caso dado, pero habitualmente es más 
fácil elegir el valor por ensayo y error, 
asegurándose siempre que no aparece 
el código 4 "Out of memory". 


El sistema requiere luego el nombre del fichero de salida. Si no va a generarse ningún 
nuevo fichero, debiera teclearse "nulo". En caso contrario, debiera teclearse un nombre 
según las mismas reglas que antes. El sistema te pedirá que actives el cassette en el 
modo de grabación, y depositará en la cinta los bloques de cabecera, después de lo cual, 
te avisara para que apagues el cassette. 


El menú que ahora aparece, se muestra debajo: 


Las opciones son: 
crear 
agregar 
suprimir 
escrutar 
acumular 
escapar 


y se espera que el usuario elija una de esas opciones mediante el número asociado. 
Cada opción se describe ahora por separado. 


l. crear 


Se avisa la usuario que teclee cada uno de los campos de un registro sucesivamente. 
El tamaño permitido para el campo se indica por el número de posiciones subrayadas 
que aparecen frente al nombre del campo. 
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(El tipo de campo se separa del resto del nombre por dos puntos, como en n:bal). A 
medida que se impone cada campo, el registro se construye en la pantalla, de manera 
que el usuario pueda comprobar lo impuesto. Cuando está completo un registro, aparece 
el aviso "Alguno más (s/n)". Si hay mas registros a imponer, el usuario teclea "s""; si 

no "n". En el primero de los casos, se repetirá el proceso; en el segundo caso se avisará 
al usuario que ponga el cassette en el modo de grabación y se cerrará el fichero. 
(Observa que la creación del fichero estará ayudada de los avisos oportunos para 
controlar el cassette a medida que se llenan bloques). 


2. agregar 


Se pregunta al usuario el número de registros que desea agregar al fichero; a continuación 
se imponen por teclado los valores en la misma manera que para la rutina crear 
(exceptuando que el proceso se repite el número de veces que se ha designado). Se 

pueden imponer los registros a agregar en cualquier orden. 


Al usuario se le pregunta a continuación, el nombre del campo clave. Los valores de 

ese campo son los que definen el orden en que deberán colocarse los registros dentro 

del fichero. Ese nombre no debe incluir la indole del campo (e.g. teclea "bal" y mo "nbal"). 
Los nuevos registros se insertan automáticamente después y en su sitio, con el sistema 
avisando al usuario de vez en cuando para que controle el cassette. 


3. suprimir 


Se pregunta primeramente al usuario, el número de registros de cada tipo que quiere 
suprimir, y luego el nombre del campo clave (excluyendo el codigo correspondiente a 
la indole del campo). 


Finalmente, se le pide que teclee cada una de las claves asociada a cada uno de los 
registros a suprimir. 


Por ejemplo, supongamos que deseamos suprimir los registros de Pepe Pérez, Paco López 
y Luis Garcia. Teclearemos: 


¿Cuántos registros? 3 
Teclea nombre del campo clave: nome 


Teclee supresión (sólo clave): Pepe Pérez 
Teclee supresión (sólo clave): Paco López 
Teclee supresión (sólo clave): Luis García 


El sistema responderá luego de manera similar al de la rutina agregar. 


4. escrutar 


Se pregunta primero al usuario el nombre del campo clave (cuyos valores van a ser 
examinados). Si es una clave de indole l, la pregunta siguiente es sobre la clave 
"objetivo". Por ejemplo, si existe un campo llamado deducible cuyo contenido será "'s" 
si el importe que haya en Otro campo del registro es deducible de impuestos, y quieres 
listar todos los registros con esa particularidad, las respuestas a las preguntas serán: 


Teclea nombre campo clave: deducible 
Clave objetivo: s 


Si el campo clave es de índole numérica, la segunda pregunta solicita una gama, mediante 
la cota superior y la cota inferior del valor del campo. Si sólo se quiere un valor, basta 
contestar con ese valor para ambas cotas. Por ejemplo, si hay un campo llamado 
nimporte, y deseamos examinar todos los registros en que ese importe valga 1/0, las 
preguntas aparecerán como: 


Teclee nombre campo clave: importe 
Gama de clave -inferior: 104 
-superior: 190 


Si, sin embargo, deseamos buscar todos los valores mayores o iguales a 100, podríamos 
teclear: 


Gama de clave -inferior: 100 
superior: 1009 


siempre y cuando supiéramos que no pueden existir valores mayores de 999. Siempre 
podremos elegir un valor así porque sabemos la longitud del campo, de manera que la 
especificación anterior está garantizado que es correcta si nimporte tiene una longitud 
de 3 octetos. Igualmente, si quisieramos todos los registros con valor inferior a uno dado, 
debiéramos fijar la cota inferior al valor mínimo posible (e.g. -1Pf para un campo de 

3 octetos). 


Se pregunta finalmente al usuario a qué aparato quiere enviar la salida; puede ser la 
pantalla, la impresora o un fichero de salida en cassette. 


La última opción permite segregar subficheros del fichero principal (e.g. se puede crear 
asi un nuevo fichero con aquellos registros que son deducibles de impuestos). 


Observa que aunque no hay una opción para listar todo el fichero por impresora, puedes 
usar escrutar para remedar esa función usando cualquier clave numérica, cuyas cotas 
inferior y superior estén fuera de la gama permitida. 


5. acumular 


Se pregunta al usuario el nombre del campo cuyo contenido va a ser sumado para todos 
los registros del fichero. Obviamente el campo debe ser numérico, por lo que en caso 
contrario te muestra un mensaje de error y el sistema regresa al menú principal. La 
cantidad total final, se expone en el monitor, y el sistema espera ahí hasta que pulses 
una tecla, antes de regresar al menú. 


COMENTARIOS GENERALES 


Todas las operaciones standard, se efectúan sobre el fichero completo. Por lo tanto, 

una pregunta tal como "¿Cuál es el total de todos los registros deducibles de impuestos?" 
no se puede contestar directamente. Sin embargo, se puede solventar el problema creando 
un fichero con los registros que tienen la particularidad de ser deducibles usando escruta 
de ficheros, y luego acumulando los importes de los campos de ese nuevo fichero. 


Igualmente, escrutinios más complejos (ejemplo: ¿cuántos registros deducibles de impuestos 
tienen sus importes comprendidos entre 20400 y 20000 ptas.?) puede efectuarse haciendo 
sucesivas escrutas y generando nuevos subficheros en cada ronda. 


APENDICE D: Gestor de Datos Spectrum - Listado del Programa 


El listado final revisado se muestra a continuación. Por simplicidad, incluye las rutinas 
cfs; que supongo ya has guardado previamente, por lo que mo debes teclear las líneas 
l ni de la 9000 a la 9980. Las puedes cargar al principio, o congregarlas (MERGE) 
posteriormente: 


1 


E KA 


LET cierre=9749: LET cogebloque=?888: LET iniciar=>?500: 

LET ¡inreg=9808: LET avipin=9148:; LET avipun=9300: 

LET exreg=9200: LET dejabloque=9?988: LET pinza=9608: 

LET arredro=99708: LET prepare=9488: LET punza=>?789 

LET prexreg=8800: LET sacaclave=789880: LET cabosueltos=7400: 


LET compalit=7480: LET companum=72088 1 LET ordenar=70099: 
LET miraclavel=4898: LET miraclaven=6608 

CLS 

PRINT AT 0,5;"Archivero Spectrum" 

GO SUB iniciar 


CLS 

PRINT AT 2,8;"Las opciones son:" 
PRINT AT 3,11;"1/ crear” 

PRINT AT 4,113"2/ agregar" 

PRINT AT 5,11;"3/ suprimir" 
PRINT AT 6,11;"49/ escrutar” 
PRINT AT 7,11;"5/ acumular” 
PRINT AT 8,11;"6/ escapar" 


INPUT "Teclee numero de opcion:"jopt 
GO SUB 288x*opt 

GO SUB arredro 

GO TO 26 


GO SUB ¡inreg 

GO SUB punza 

INPUT "Otro registro?(s/n>"j3qs%$ 
IF q$="s" THEN GO TO 288 

CLsS 

GO SUB cierre 

RETURN 


INPUT "Cuantos registros?"*;¿nr 

DIM b$(nr,!lpr) 

FOR q=1 TO nr 

GO SUB ¡nreg 

LET b$(q>)=r8$ 

NEXT q 

GO SUB sacaclave 

GO SUB ordenar 

LET ap=1 

GO SUB pinza 

IF ap>nr OR fifi THEN GO SUB cabosueltos: RETURN 
LET s$=r$(comienzo TO termino): 

LET t$=b8S(p>(comienzo TO termino) 

IF 1tipo THEN GO SUB compalit 

IF NOT l1tipo THEN GO SUB companum 

IF comp<8 THEN GO SUB punza: GO TO 489 
IF comp>=8 THEN 

LET té=r$: LET r$=b$(p>: GO SUB punza: 
LET r$=t$: LET ap=ap+1: GO TO 498 


INPUT "Cuantos registros?"j¡nr 

GO SUB sacaclave 

DIM d$(nr,termino-comienzo+1) 

FOR p=1 TO nr 

INPUT "Clave a suprimirísolo clave):1";¡d$(p) 
NEXT p 

GO SUB pinza 

IF +$fifi THEN GO SUB cierre: RETURN 

FOR p=1 TO nr 

IF r$(comienzo TO termino)»=d$(p) THEN GO TO ¿468 
NEXT p 

GO SUB punza 

GO TO 468 


GO SUB sacaclave 

IF 1tipo THEN DIM k$(termino-comienzo+1): 

INPUT “Clave de busqueda:”"j¿ks$ 

IF NOT 1tipo THEN 

INPUT *Cota MIN:";cinf,"Cota MAX:" ¿csup 

INPUT "*"Pantalla(1)>,Impresora(2>»Cassette(3):";¡opt 
SUB pinza 
fifi AND opt=3 THEN GO SUB cierre: RETURN 
fifi THEN INPUT "Pulsa “c” para continuar";k$: RETURN 
ltipo THEN GO SUB miraclavel 
NOT 1ltipo THEN GO SUB miraclaven 
NOT concuerda THEN GO TO 848 

LET bs=comienzo: LET es=termino 

IF opt=1 THEN GO SUB exreg 

IF opt=2 THEN GO SUB prexreg 

IF opt=3 THEN GO SUB punza 

LET comienzo=bs: LET termino=es 

GO TO 848 


LET sum=8 

GO SUB sacaclave 

IF 1tipo THEN PRINT "Clave no numerica”: PAUSE 128: RETURN 
GO SUB pinza 

IF +4ifi THEN PRINT “Suma deD"3k$;"=0"; sum: 

INPUT "Pulsa"c“para continuar"3k$: RETURN 

LET sum=sum+VAL r$(comienzo TO termino) 

GO TO 1838 


sTOP 


LET concuerda=1 
IF VAL r$(comienzo TO termino>»<cinf OR 

VAL r$(comienzo TO termino>»>csup THEN LET concuerda=9 
RETURN 


LET concuerda=8 
IF kS=r$(comienzo TO termino) THEN LET concuerdax=l1 
RETURN 


LET inc=1 

LET testigo=89 

FOR p=1 TO nr-inc 

LET s$=b$(p>(comienzo TO termino): 


LET ts=b$(p+1>(comienzo TO termino) xi 


70830 
708489 
70858 


7068 
7878 
70889 


7298 
7219 
7228 
7230 


7488 
7418 
7420 
7439 


7608 
7610 
76289 
7630 
7649 
76589 
7660 
7678 
7689 
7698 
7798 


7888 
7819 
7828 
78308 
7848 
7859 
7855 
7868 
78789 
7880 
7899 


8888 
8818 
8815 
8828 
8840 
8858 
8868 
88709 
8888 


9888 
9818 
9828 
9025 
9038 
9948 
9858 


IF ltipo THEN GO SUB compalit 

IF NOT 1tipo THEN GO SUB companum 

IF comp>8 THEN LET t$=b$(p)1 

LET b$(p)=b$(p+1>): LET b$(p+1>=t$81 LET testigo=1 
NEXT p 

IF testigo>»8 THEN LET ¡nc=inc+1: GO TO 7885 
RETURN 


IF VAL ss$<VAL t$ THEN LET comp=-1 
IF VAL s$=VAL t$ THEN LET comp=8 
IF VAL s$>UVAL t$ THEN LET comp=1 
RETURN 


IF s$<t$ THEN LET comp=-1 
IF s$=t$ THEN LET comp=8 

IF s$>t$ THEN LET comp=1 

RETURN 


IF ap>»nr THEN GO TO 7678 
FOR p=ap TO nr 

LET r$=b$(p> 

GO SUB punza 

NEXT p 

GO SUB cierre 

RETURN 

GO SUB punza 

GO SUB pinza 

IF fifi THEN GO SUB cierre: RETURN 
GO TO 7678 


DIM K$(9): INPUT “Teclee nombre del campo clave *3ks$ 
LET comienzo=1 

FOR p=2 TO 11 

IF n$(p>(2 TO >=k$ THEN GO TO 7848 

LET comienzo=comienzo+w(p>) 

NEXT p 

PRINT “LA CLAVE TECLEADA NO EXISTE "1 GO TO 7808 
LET termino=comienzo+w(p>-1 

IF n$(p,1)="1*" THEN LET Itipo=1 

IF n$(p,1>="n" THEN LET 1tipo=8 

RETURN 


LET comienzox=1 

FOR p=2 TO 11 

IF n$(p,1>="0”" THEN LPRINT : RETURN 
LPRINT n$(p,1>;":";TAB 4n$(p>(2 TO >; 
LET termino=comienzo+w(p)-1 

LPRINT TAB 15;r$(comienzo TO termino) 
LET comienzo=termino+1 

NEXT p 

LPRINT : RETURN 


Dim a$(1pr> 
CLS : LET comienzo=1 
FOR p=2 TO 11 
IF n$(p,1>="D0" THEN GO TO 9129 
PRINT AT p,8¡n$(p,1>3;"1"¡AT p,43n8(p>(2 TO > 
FOR c=1 TO w(p) 
PRINT AT p,149+c;*_”* 
c 


167 


168 


9078 
9988 
9899 
9198 
9118 
9128 
9138 


9148 


9158 
9168 
9178 


9288 
9218 
9215 
9220 
9248 
9250 
9268 
9279 
9288 


9388 


9310 
9328 
9338 


9488 
9485 
9418 
99415 
9420 
9422 
9425 
9438 
9435 
944909 
9445 


9588 
9505 
9518 
9514 
93515 
9529 
9521 
9525 
9538 
9535 
9540 
9545 
9547 
9548 
9558 
9555 
9557 
9568 


LET termino=comienzotw(p)-1 

INPUT (n$(p>(2 TO >>ja$tcomienzo TO termino) 
PRINT AT p,15;a$í(comienzo TO termino) 

LET comienzo=termino+1 

NEXT p 

LET r$=as$ 

RETURN 


PRINT— INVERSE 1;"Marche" AND NOT testigo; 
*“Quiete" AND testigo;”" Rascando" 

BEEP .2,15: PAUSE 6: BEEP .3,28: PAUSE 88 

LET testigo=NOT testigo 

RETURN 


LET comienzo=1 

FOR p=2 TO 11 

IF n$(p,1>="0" THEN PRINT + RETURN 
PRINT n$(p,1>3":";¡TAB 4;n$(p>(2 TO >; 
LET termino=comienzo+w(p)-1 

PRINT TAB 15;r$(comienzo TO termino) 
LET comienzo=termino+1 

NEXT p 

PRINT : RETURN 


PRINT— INVERSE 1;"Marche" AND NOT testigo; 
"Quiete” AND testigo;” Grabando" 

BEEP .2,208: PAUSE 6: BEEP .3,5: PAUSE 88 

LET testigo=NOT testigo 

RETURN 


INPUT "Numero de campos: "¡nf 

CLS 

FOR p=2 TO nf+1 

PRINT AT 18,2;"CampoD” ¡p-1 

INPUT *Nombre del campo (precedido de 1/n>:"¡n$(p> 
IF n$(p,1><>"1" AND n$(p,1><>"n" THEN GO TO 9428 
INPUT "Numero de octetos: "j¡wt(p) 


INPUT "No. de registros por bloque: "¿w(1)> 


DIM n$(11,18)>: DIM w(11)>3 LET lpr=8: GO SUB arredro 
INPUT "Nombre fichero de entrada: "34$ 
IF £$="nulo" THEN GO SUB prepare: GO TO 9525 
GO SUB avipin 

LOAD +£$+"h1" DATA n$()>) 

LOAD f$+*"h2" DATA w() 

GO SUB avipin 

INPUT "Nombre fichero de salida: "39% 
FOR p=2 TO 11 

LET lpr=lpr+w(p> 

NEXT p 

DIM ¡$(w(1),lpr>: DIM es$(w(1)>,1pr> 

IF g$="nulo" THEN RETURN 

GO SUB avipun 

SAVE g$+"h1" DATA n$() 

SAVE g$+"h2" DATA w() 

GO SUB avipun 


RETURN EN 


IF pin=8 OR pin>»w(1)>) THEN GO SUB cogebloque 
IF ¡i$(pin>( TO 7)="ultimal” THEN 

PRINT *Intento de sobrepasar +fifi": STOP 

LET r$=i$(pin>) 

IF r$( TO 2)>="(c* THEN LET H*ifi=1 

LET pin=pin+1 

RETURN 


LET pex=pex+1 
LET es$st(pex>)=r$ 


IF pex=w(1) OR r$="ultimal" THEN GO SUB dejabloque 
RETURN 


LET r$="cc": 

GO SUB punza 

LET r$="ultimal" 
GO SUB punza 
RETURN 


LET m$=STR$ ¡nbc 

GO SUB avibin 

LOAD f$+m$ DATA ¡$() 
POKE 23692,255 

GO SUB avipin 

LET pin=1 

LET i¡inbc=inbc+1 
RETURN 


LET m$=STR$ exbc 

GO SUB avipun 

SAVE g$+m$ DATA e$() 
GO SUB avipun 

LET pex=8 

LET exbc=exbc+1 
RETURN 


LET pin=0: LET pex=8: LET ¡nbc=8: 
LET exbc=8: LET fifi=8: LET testigo=8 
RETURN 
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APENDICE E: Construyendo tu propio Conmutador Load/Save 


¿Cuantas veces has olvidado quitar la clavija "ear" al guardar un programa en cinta? 
En la quincuagésima ocasión en que me ocurrió, decidi que ya era hora de adoptar medidas 
para impedirlo. Aquí hay una solución práctica y simple. 


Necesitas: 


(a) clavijas cilíndricas 4 x 3.5 mm. 

(b) un conmutador miniatura deslizante de 2 polos 2 vías 

(c) 2 metros de cable microfónico apantallado (de una sola alma). 
(d) Una vieja cajita de plástico de cassette. 


(a), (b), y (c) están disponibles en cualquier tienda electrónica por un valor aproximado 
de 200 pesetas cada una, y (d) puedes aprovechar cualquier cajetín de plástico. 


Taladra cuatro agujeros en los lados estrechos de la caja, lo suficientemente grandes 

como para permitir pasar los cables a través de ellos. Haz otro agujero en una de las 

caras grandes para montar el conmutador deslizante. (La forma más fácil de que el agujero | 
ses del tamaño adecuado, es cortar un trozo de cinta adhesiva que actue como plantilla. j 
Ahora haz las conexiones que aparecen en la figura El. 
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Figura E.l1 Diagrama del circuito para conmutador LOAD/SAVE. 


Figura E.2 Vista frontal vel conmutador. 
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Figura E.3 Vista trasera del conmutador 


Finalmente, marca de colores las clavijas con cinta adhesiva para evitar confusión. 


Todo esto lo que hace, es interrumpir el cable "ear'" de manera que cuando guardas en 
cinta colocas el conmutador en la posición SAVE (lo lógico); y lo deslizas de nuevo 
hacia la posición LOAD para cargar o verificar lo grabado. Observa que el cable "mic" 
no está realmente conectado a nada dentro de la caja, pero es conveniente que la 
atraviese simplemente para evitar perderlo. 
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